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The TSC 6800 Mnemonic Assembler was written for maximum flexibility 
making it usable to owners of RAM-only systems as well as disk system 
owners. As always, flexibility adds complexity and therefore the user 
is advised to read the following application notes thoroughly before trying 
to use ne program. 

It is assumed that the user is famillar with assembly language and, 
in particular, the mnemonics of the M6@@% assembly language. Those who 
are not are referred to the 'M688% Microprocessor Programming Manual’! or 
the ''M684% Programming Reference Manual,'' both available from your 
Motorola distributor. 

The source language (input) for the TSC 684% Mnemonic Assembler con- 
sists of a subset of the 7-bit ASCI! (American Standard Code for Information 
Interchange, 1968) character set. Special meaning is attached to many of 
these characters as will be described later. In all cases the parity bit 
(most significant bit) of each character must be %. This restriction, of 
course, does not apply to line numbers, if present. 

Each line of source for the assembler consists of any number of bytes 
(possibly none) preceeding the first character of the source statement, 
followed by the source statement, followed by a carriage return (hex $D). 
The source statement consists cf up to four '"'fields'' which are free format. 


From left to right, the four fields are label , operator (mnemonic), 


operand, and comment. There must be at least one space between each of 


these fields. Further restrictions and options for each of these fields 


are: 


label field 


1) 
2) 
3) 
4) 


5) 


The label must begin in the first column and must be unique. 
Labels consist of letters (A-Z) and numerals (9-9). 

Every label must begin with a letter (A-Z). 

Only the first 6 characters of any label are significant, the 
rest are ignored. 


The label field may be the only field present. 


operator field 


1) 


2) 


The operator is 3 alphabetic characters (A-Z) which must be 
followed by a space. The exception to this is number 2, below. 
Mnemonics such as LDA A and AND B may be written as LDAA and ANDB, 


respectively. In this case fourth character must be followed by 


a space. 


operand field 


1) 


2) 


3) 


The operand field may consist of an addressing mode indicator and 
an expression or just an expression. 

The addressing mode indicator is either a # (Pound sign) followed 
by an expression for immediate addression or an expression followed 
by ,X for indexed addression. (Expressions defined later.) 


An operand may or may not be required depending on the addressing 


mode. 


comment field 
1) The comment field is optional 


2) Comments may contain any character from SPACE ($20) to DEL ($7F). 


Expressions 


Expresstons consist of combinations of numbers and symbols seperated 
by one of the four arithmetic operators +, - , *, /. The arithmetic is 
done with 16 bit integer operands and truncated as necessary. 8 bit results 
are taken from the least significant 8 bits. Unary (+) and (-) are allowed. 


Expressions must not contain spaces. 


Numbers 

Numbers are groupings of the numerals %-9 and possibly letters pre- 
fixed or postfixed by a base indicator. Possible base Indicators are shown 
below. The ASCII base allows a single ASCII character ($2-$5F) to be 


used as an operand when preceeded by a single quote. 


Base Prefix Postfix _ Comment 
Decimal none none decimal assumed 
Binary z B 8, 1 allowed 
Octal @ OorQ 8-7 allowed 
Hexadecimal § H 9-9, A-F allowed 
ASCII : not allowed ASCI! equivalence 
Symbols 


Symbols are groupings of letters and numerals the first 6 of which are 
significant and the first of which must be a letter. The single character 
* is a special symbol whose value jis the current value of the program counter 


(PC). 


Evaluation of Symbols and Expressions 


Since this is a two pass assembler all symbols must be resolved in the 


two passes. Therefore, only one level of forward referencing is allowed. 


Assembler Directives 
In addition to the 72 M68@¢ mnemonics this assembler supports 1] 
assembler directives or pseudo-ops. These pseudo~ops are listed below 


along with a brief description. Mcre detailed descriptions follow. 


FCC form constant character 
FCB form constant byte 
FDB form double byte 
SPC insert spaces [fn output listing 
OPT activate or deactivate assembler options 
PAG skip to next page of output 
ORG eine new origin (PC) 
EQU assign value to symbol 
END, MON signal end of source program 
NAM, TTL specify name or title 
RMB reserve memory bytes 


The function of FCC is to create character strings for messages or 
tables. The character string 'text' is broken down to ASCII, one character 


per byte. The two allowable formats are shown below: 


label FCC count, text 


or 


label FCC delimiter text same delimiter 


where count is any legal expression. In the case where a number is used as 
a delimiter the first character of text must not be a comma. The character 


limit of any single FCC statement is 255. The use of label is optional. 


FCB 
The FCB pseudo-op causes an expression to be evaluated and the re- 


sultant 8 bits placed in memory. Usage is shown below: 
label FCB expression 1, expression 2,...,expression N 


Each expression is seperated by a comma with a maximum of 255 expressions 


per FCB statement. The label is optional. 


FDB 
The function of the FDB directive is identical to FCB except 16 bit 
quantities are assembled, i.e., two bytes generated for each expression. 


The required format is shown below: 
label FDB expression 1, expression 2,...,expression N 


where the label is optional. The maximum number of expressions is 127. 


SPC 
The SPC operator causes the specified number of spaces to be inserted 


in the output listing. The format is shown below. 
SPC expression 


Notice that no label is allowed. If ‘expression' evaluates to zero one 
space is inserted. The operator SPC itself does not appear in the output 
listing. If PAGE mode is selected SPC will not cause spacing past the top 


of the next page. 


OPT 
The directive OPT is used to activate or deactivate the assembler 


options. The format is shown below. Notice that no label is allowed and 


no code is generated. 
OPT option 1, option 2,...,option N 


The allowable options are: 


SYM print sorted symbol table after the listing (default) 
NOS do not print the symbol table 

GEN print all code generated by FCB, FDB, and FCC (default) 
NOG print only one line for each FCB, FDB, or FCC 

LIS print the assembled source listing (default) 

NOL suppress the printing of the source listing 

PAG enable page formatting and numbering 

NOP disable page mode (default) 

MEM enable storing of object code in memory 

NOM disable storing of object code in memory (default) 

TAP enable the production of MIKBUG object tape 

NOT disable the production of MIKBUG object tape (default) 


If contradicting options appear the last one appearing takes precedence. All 
options take effect simultaneously at the beginning of pass 2. The default 
options specified take effect unless the user specifies a particular option. 
Only the first 3 characters of an option name are significant and multiple 


options are seperated by a comma. Some of the consequences and uses of the 


options will be explained later. 


PAG 
The PAG operator, if the PAG option is on, causes a page eject and 
subsequently causes the title (if any) and page number to be printed at 
the top of the next page. No label is allowed and no code is produced. 
Notice that the first page of any listing is page 9 and no title is printed 
on that page. The PAG operator itself will not appear in the listing. 
The usual procedure is to have all the options and the title declaration 


followed by a PAG be the first statements in a program. 


ORG 


The ORG operator, whose format is shown below, causes a new origin 


address (PC) for the code following. 
ORG expression 


No label Is allowed and no code is produced. !fno ORG appears an origin 


of 6608 is assumed. 


EQU 

EQU is used to equate a symbol to an expression as shown below. A 
label is required and no code jis generated. Only one level of forward 
referencing is allowed and the equate must not be recursive. 


label EQU expression 


No code is produced by EQU. 


END or MON 


These operators signal the assembler that the end of the source input 


has occurred. No label is allowed and no code is generated. 


NAM or TTL 


These operators are used to assign a title to be printed at the top 
of all pages (other than page %) if the PAG option is on. If the PAG 
option is off this operator has no effect. The format, as shown below 


allows up to 32 characters in the title. No label jis allowed 


TTL text for the title 


and no code is generated. I!f more than cne TTL or NAM operator appears 


the last one "'executed'' will be printed on the next page. 


RMB 
This Operator causes the assembler to reserve memory for data storage. 
No code is produced and therefore the contents of those memory locations 


are undefined at run time. The label is optional as shown below 
label RMB expression 

where ‘expression' is a 16 bit quantity. 

** Description of assembler operation 


Pass 1 - PASONE ($03B1) 

Pass 1 is used to build the symbol table which {ts used to resolve 
forward references. Nothing is printed unless the error limit is exceeded 
(85). Pass 1 must be run before PASS 2 and again before PASS 3. 

Pass 2 - PASTWO ($03D9) 

During pass 2 several things may happen. 

1) If the LIST option is on, the assembled source listing is printed with 


error messages, if any. 


2) (If the LIST option is off only offending source lines and their 
corresponding error messages are printed. 

3) Uf the TAPE option Is on, a MIKBUG formatted object record fs outputted 
(through a different control point than the source listing). 

4) tf the MEMORY option Is on, object code is placed in memory in the 


following form: 
COUNT ADDRESS DATA ... DATA COUNT ADDRESS DATA ... DATA TERM 


where ADDRESS is the destination address of the first data following 
COUNT is a 16 bit byte count indicating how many data bytes 
fol low 
DATA is the actual data 


TERM is the record terminator (a COUNT of 666) 


When a count of @0%% occurs this signifies the end of the program. 
5) If the SYMBOL option is on, a sorted symbol table will be printed after 


the assembly listing (if any). Pass 1 must be run before PASS 2. 


Pass 3 - PASTHR ($05BB) 

Pass 3 is used when the user does not have a ''punch!'' device, on which 
to save the MIKBUG formatted records, which operates independently from the 
list device. Pass 3 is identical in operation to pass 2 except that NOSYM, 
NOLIST, NOMEM and TAPE options are forced and error messages are Suppressed. 


Pass 1 must be run before PASS 3, PASS 2 and PASS 3 are independent. 


inftialization 
There exists in the assembler an initialization routine for each of 
the passes which must be run once before that pass in run. These are 


called PIINIT, P2ZINIT, and P3INIT for passes 1, 2, and 3, respectively. 
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Adapting to Your System 


Due to the inherent flexibility of this assembler it is necessary 
that each user customize it to fit the particular system. This involves 
very few changes and can be made by any individual familiar with 6800 


assembly language. Each point to be adapted is explained below. 


Output Character Routine 
The address at $0321 must be changed to that of your Output 


Character routine. This routine must print the ASCI! character in 
the A register whose parity bit (most significant bit) Is zero. The 
B and X registers must not be altered. If you have a printer or a 
disk you will likely want te specify the address of a program which 


handles these peripherals as well as the control terminal. 


Tape Qutput Character Routine 
The address at $0324 must be changed to that of your tape punch 


(or tape record) routine. It fis through this control point that the 
MIKBUG formatted object code is outputted. If you do not have a 
seperate punch or record device this address may be the same as the 


Output Character routine address, i.e., tape device same as list device. 


Tape Control Characters 


There are provisions at $04c0 and $o4C4 for four control characters 
to activate and deactivate, respectively, your punch or record device. 
Simply place the appropriate control characters for your device in each 
of the strings. If you desire to send less than the four characters, 
change the byte at $04B3 to the appropriate value (even @). This 


will, of course, affect both turn on and turn off simultaneously. 
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Tape Control Delay 
The byte at $04C9 controls the number of half-seconds (IMHz clock) 


of delay between tape turn on and data and also between data and 
tape turn off. The delay is set now to Z seconds. !f you don't 


need delay at all set the byte to @@. 


Page Control 
Page Eject 
The four bytes at $11D1 are provided for the user to insert the 
necessary control characters to cause the printer to form feed, 
i.e., eject to the top of the next page. If you need only 1 
character, simply place the $4 after that character in the string. 


The control character is currently set to $@A (line feed). 


Top Margin Control 
The byte at $1143 controls the number of lInes from the form 


feed position to the title and page number line (can be @). 


Page Length Control 

The byte at $07C5 controls the number of lines to be printed 
on each page before the form feed is issued. This count Includes 
the top margin and the title line and should be larger than 


(top margin + 1). 


The user may want to alter other features such as the number of columns 
printed in the symbol table, etc. Most modifications of this type 

will be needed by only a few users and therefore will not be elaborated 
upon here. These users are encouraged to study the code to facilitate 


making the desfred modifications. 
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Controller Routine 

The routine MAIN ($300) is an example of how to use the assembler 
subroutines. It assumes the user has no independent punch device 
and therefore must run PASS 3 in order to output the object code. 
Also, MAIN assumes the source program resides entirely in RAM and 
that the necessary pointers (to be described) are set. 

Disk users will, of course, want to write thelr own MAIN 
routine which will bring in each section of source Code and run 
PASS |! on each, then bring in each section again and run PASS 2, 
similarly for PASS 3. Naturally, the initiatization routine for 
each pass need be run only once before each series cf passes of the 
same type. Be reminded that PASS 1 needs to be run before PASS 2 
and again before PASS 3. This procedure will allow assembly of 
files too large to reside entirely in RAM. 

One note of caution: the END operator js not strictly necessary 
at the end of a program as the pass in effect will terminate at 
the end of the source area. However, if you are generating object 
code, only an END statement will flush the code buffer or fix the 
memory count. Likewise, only an END operator will cause the symbol 
table to be printed (If SYM is on). The byte ENDFLG ($0058 ) will 
be set ($FF) if the END operator occurs, which can be detected by 


your MAIN routine. 


Assembler Data Pointers 

Before calling any assembler routines the user must set several pointers 
to data areas. This feature allows much flexibility but restrictions which 
apply to each pointer are outlined below. No assembler routines modify 


these pointers. 
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LBLBEG - S$PG4g 


LBLEND - $642 


These are the pointers to the area which will be used for the label 
table (symbol table). Each entry (symbol) in the table requires 8 bytes. 
A large table will result in the Put Label and Find Label routines running 
faster but the Shell (sort) routine will run slower. A small table will 
have the opposite effect. Of course, the table needs to be large enough 
to accomodate the number of symbols in your program. A reasonable formula 


for determining the size necessary is: 
SIZE=N*8* 2=N * 16 bytes 


where N is an estimate of the number of symbols expected. When the table 
is full an error message will be inserted In the listing. (The table may 
not be completely full due to the algorithm used for creating the table - 
hashing, or scatter storage.) 

If you want a IK symbol table (a recommended minimum, enough for 
60-80 labels) you might set LBLBEG to $20@% and LBLEND to $23FF. Notice 


that the pointers do point to the actual beginning and end of the table. 


SRCBEG - $Of44 
SRCEND ~ $6946 
These two pointers indicate the beginning and end cf the section of 
source code to be assembled, which may be as small as one line of source. 
SRCEND must point to the carriage return ($6D) of the last line of the 


source section to be assembled. 


LINBYT - $6f48 
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Although rot actually a pointer LINBYT is related to the source pointers. 
tt tells the assembler how many bytes to ignore from carriage return of 
the previous line (or SRCBEG) before actually processing text. This allows 
direct output of text editors to be assembled without removing the preceeding 


line numbers. If ycu have no line number bytes, set LINBYT to @. 


MEMPTR - $8649 


This pointer tells the assembler where in memory, if the MEMORY option is 
on, to put the assembled object code. Recall that four extra bytes 


(address and count) are required for each contiguous block of code. 


Error Messages 
This assembler supports 12 error messages which are printed after 
the offending line. The error messages announce violations of any of the 
restrictions set forth in this manual and are, therefore, self-explanatory. 
Additionally, the byte 'ERRORS' (cleared by PIINIT) will be set if any 


errors have occurred in any of the passes. 


Note: The ASCII characters #0 - SOC, SHE - $IF, and $86 - $8F, inclusively 
are explicitly prohibited from being In any area of the source program with 
the exception of the bytes which are skipped by the assembler (line number 
bytes). Their existence will cause undefined results. The remaining ASCII 


characters may appear subject to all of the foregoing restrictions. 


Additional Feature 
This assembler supports 2 extra mnemonics namely BHS and BLO which 
are the logical equivalents of BCC and BCS respectively. However, Branch 


if Higher or Same and Branch if Lower are much easier to remember and use. 
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Final Note 


Please be reminded, when using the MEMORY option, that in most cases 
the object code will not be put in memory where it can be executed. It 


is up to the user to write the simple routine necessary to move the code 


to its proper executable location. 


Important: The address at $031C is the address to which control returns 


when the assembly is complete. This should be modified to suit your needs. 


Re * USING THE TSC EDITOR **** 


The TSC Text Editing System and the TSC Mnemonic Assembler have not 
been written to be used co-resident. It is possible to use them one 
after the other without reloading the source. Following is the 
procedure to be used: 

1. Load the editor but before running, change BEGPNT (location $0359) 
presently $1492 to $1600. This moves the starting location of the 
text. Put a $8D at location SI15FF. 

2. Run the editor and create your file. 

3. When finished, exit the editor and write down the contents of 

a.) FILBEG ($0097- 0098) Shows the source beginning. 
b.) FILEND ($0099-009A) Shows one past the source end. 
4, Load the assembler but before running be sure to set all pointers. 
a.) Symbol Table limits ($0040-0043) 
b.) Source beginning ($0044-0045) contents of edit FILBEG 
62) source ending ($0046-0047) ''contents-1" of edit FILEND 
we Be sure to subtract one from FILEND !! 
d.) Skip count ($0048) Set this to 03 (3 line no. in editor) 
e.) Memory pointer ($0049) Set if used. 
5. Run the assembler. 
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LOCN B1 &2 &3 


0040 
0042 


HMM MMMM RM HW RH 


HMMM MMMM MM RRM RMHK HMR HMM HMM MMR MMMM HMM MMM HH 


x 
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CORY 


RIGHT 1977 (C) BY 


TECHNICAL SYSTEMS CONSULTANTS» INC, 
FO BOX 2574 
WEST LAFAYETTE» INDIANA 47904 


INSTRUCTION TYPES 


ee 


TYPE 
TYPE 
TYPE 
TYPE 
TYFE 
TYFE 
TYPE 
TYPE 
TYFE 
TYPE 
TYPE 
TYFE 
TYPE 
TYFE 
TYPE 
TYPE 
TYFE 
TYPE 


ERRO 


KFOMON ACHES Gh OS 


STOR 


LBLBEG 
LBLENI 


1. INHERENT 
2 RELATIVE 
3 INDEXEDyEXTENDED Ovl 
4 DIRECT, INDEXED EXTENDED Ovly2 
a IMMEDTATE y DIRECT» INDEXEDs EXTENDED Ovis2s3 
é INHERENT (AyB)yINDEXEDYEXTENDED Ovly2ys 
7 INHERENT (AvxB) Ovl 
8 FCC 
> FCR 
10 FOR 
141.0 SFC 
12 OFT 
13 FAG 
14 ORG 
1S EQU 
16 ENIty MON 
17 NAMs TTL 
18 RMB 
R TYPES 


SYMBOL TABLE FULL 

UNDEFINED SYMBOL. 

MULTIPLY DEFINED SYMBOL 
UNRECOGNIZABLE MNEMONIC 

ILLEGAL CHARACTER IN LABEL 

ILLEGAL CHARACTER IN OPERANT 
RELATIVE BRANCH TOO LONG 

SYNTAX ERROR 

ILLEGAL INDEX VARTABLE 

ILLEGAL CHARACTER FOR SPECIFIED BASE 
ILLEGAL OF TION SWITCH 

TOO MANY OPERANIIS IN DATA STATEMENT 


AGE. 

ORG $40 
RME 2 
RMB 2 
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LOCN Bil B2 B3 
0044 
0046 
0048 
0049 
OOAB 
004n 
OO4F 
0055 
0056 
0057 
00588 
0059 
OOSA 
OOSH 
OO5C 
oosn 
OOSE 
OOSF 
0060 
0061 
0062 
0063 
0064 
0065 
0067 
0069 
OO4K 
006 
OO6F 
0071 
0073 
0075 
0077 
0079 
0078 
0071 
OO7E 
OO7F 
0080 
0081 
0082 
0083 
0084 
0085 
0087 
0089 
008k 
oosn 
OO8F 
0090 
0091 
0094 
0096 
0098 
OO9A 


SRCBEG 
SRCENI! 
LINBYT 
MEMORJ 
PC 
SRCPTR 
LABEL 
PRELG 
ERRFLG 
MATFLG 
ENDFLG 
FCFLAG 
NATFLG 
FCCFLG 
EJFLG 
P3FLG 
PRTFLG 
PAGFLG 
LBLMSK 
CKSUM 
OBJINT 
OFN 
TERM 
XSAVE 
SF SAVE 
XTEMF 
XTEMF 1 
XTEMP2 
XTEMP3 
XTEMF4 
XTEMF'S 
LTEMP 
QTEMF'S 
QTEMF2 
QTEMP 
TEMF 
OF CODE 
OF 1 
OF2 
P2ERR1 
P2ERR2 
P2ERR3 
LSTERR 
ERRFTR 
BYTFPTR 
OBJPTR 
MEMPTR 
LINFTR 
FASS 
OF CNT 
RNDM 
OPTFTR 
OFNFTR 
SAVFTR 
MCOUNT 


SYSTEM V1.4 
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PAGE 
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LOCN Bl B2 BS 


009C LSTFCM RME 2 
OO9E LASTFC RMB 2 
O0AO ORJADIR RMB 2 
00A2 LASTM RMB 2 
O0A4 HASHCT RMB 1 
OOAS ERRCNT RMB 1 
O0ASG BYTCNT RME 1 
O0A7 RUFCNT RMB 1 
00A8 LINCNT RMB 1 
OOAP ERRORS RMB 1 
OOAA GAF RME 1 
OOAB MODFY RME 1 
OOAC FAGENO RMB 2 
OOAE LIST RME 1 
OOAF SYMBOL RMB 1 
OORO GENER RME 1 
OOR1 PAGER RMR 1 
OOB2 TAFE RME 1 
00B3 MEMORY KME 1 
OOR4 OBJBUF RMB 18 
00C4 TITLE RME 33 
x 
x 
x 
0036 LINES E-QU u4 
OO00A EE JCHR EQU SOA 
x 
x 
ORG $100 
0100 ERRSTK RMB 256 
0200 BYTSTK RMB 256 
x 
x 
0300 8E AO 7F MAIN Lis #SA07F 
0303 Br O3 26 JSR PLINIT 
0306 BI 03 Bl JSR FASONE 
0309 BI O03 4F JSR F2INIT 
O30C Bl O38 Ie JSR FASTWO 
O30OF BI O03 26 JSR PLINIT 
0312 Br O3 Bi JSR FASONE 
0315 BI! O03 6F JSR FSINIT 
0318 BR OS BE JSR FASTHR 
x 
x EXTERNAL LINKAGES 
O31B 7E EO TO MON JMP $EON0 
OS1E 846 20 OUTS LUA A #’ 
0320 7E E1 D1 OUTCH JMF SE 101 
0323 7E El [1 TAPOUT JMF SELL 
x 
x 
x 
KK FLINIT 


xX FASS 1 INITIALIZATION. 


FAGE 3 


SET STACK XXKKKKKKKKKKK 


RETURN TO MONITOR FROGRAM 


MUST BE. 


* RUN BEFORE A SERIES OF FASS 1 RUNS. 


0326 84 FF PLINIT LOA A #4FF 


TSC 6800 


LOCN 
0328 
032A 
032C 
O32E 
0330 
0331 
0333 
0334 
0336 
0338 
O33A 
033C 
O33E 
0340 
0342 
0344 
0346 
0348 
034A 
03401 
O34F 
0351 
0353 
0354 
0356 
0358 
O35B8 
O35 
O35F 
0360 
0363 
0365 
0367 
0369 
036C 
O36E 


O36F 
0371 
0373 
0375 
0378 
037A 
0370 
O37F 
0382 
0384 
0386 
0387 
0389 
0388 
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00 


Cé 


Eé 


00 


090 
00 


FF 


STA A LIST 

STA A GENER 

STA A SYMEOL. 

STA A FPCFLAG 

NEG A 

STA A LINCNT INITIALIZE COUNT 
CLR A 

STA A FPAGER SET ‘OFF’ OFTIONS 
STA A FPAGENO 

STA A FAGENO+1 

STA A ERRCNT SET COUNT 

STA A ERRFLG CLEAR FLAG 

STA A TAPE 

STA A MEMORY 

STA A ENDFLG CLR FLAG 

STA A ERRORS 

LIA A #47F 

STA A LELMSK SET MASK 


LIX #ERRSTR 

STX ERRFTR SET POINTER 

LIX LELBEG GET LABEL TABLE START 
CLRLBL CLR O»x SET WHOLE TABLE TO 0 

INX 

CFX LELEND CHECK TONE 

BNE CLRLBL LOOF TILL DONE 

LIX #TITLE : 


LOA A #’ 

SETTL. STA A O»X 
INX 
CFX #TITLE+32 CHECK ALL DONE 
BNE. SETTL GO FINISH 
LDA A #4 
STA A O+rxX SET EOT 
LOX #0 
STX FC SET FC TO 0 
RTS 

x 

x 

KK F2INIT 


*K FASS 2 INITIALIZATION. MUST BE RUN 

* BEFORE A SERIES OF FASS 2 RUNS. 

P2INIT LOA A #4FF 
STA A OBJINT SET TOGGLE 
STA A PSFLG SET NOT FASS 3 
LIX #ERRSTR 
STX ERRETR INITIALIZE ERROR FTR 
L.DNX #0 
STX i INITIALIZE PC 
LIX #$F FFF 
STX LSTFCM 
STX LASTFC SET OBJECT FPC’S 


CLR A 

STA A BUFCNT 
STA A MCOUNT 
STA A MCOUNT +4 
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LOCN Bl B2 &3 


0380 97 S38 STA A ENTIFLG CLEAR FLAG 
O38F CE 00 B4 LUX #OR JBUF 
0392 DIF 89 STX ORJPTR SET OBJECT FTR 
0394 TE 49 L.DX MEMOBJ 
0396 LIF 8k STX MEMF TR SET MEMORY FTR 
0398 DF A2 STX LASTM 
O39A TE 40 L.DIX LELBEG GET LABEL FTR 
039C AS OO SETBIT LOA A OvXx GET FIRST CHAR 
O39E 27 O04 BEQ NOLAR IF Ov NO LABEL 
O3A0 BA 80 ORA A #480 SET FLAG BIT 
O3A2 A7 00 STA A Q»x FUT BACK 
O3A4 C4 08 NOLAER LOA BR #8 SET COUNT 
O3A6 08 ALVETR  INX MOVE FTR 
O3A7 9C 42 CFX LBLEND SEE IF DONE 
O3A9 27 OS BEQ P2TN3 
O3AH SA NEC 
OZAC 26 FB BNE ALVETR SEE IF AT NEW FOSTITION 
OZAE 20 EC BRA SETEIT GO SET NEXT FLAG 
O3EO 39 F2TNS RTS 

x 

x 


KK PSINIT 
K FASS 3 INITIALIZATION 


O36F F3INIT &QU P2INIT SAME AS PASS 2 
x 
* 


*xX FASONE 
* FERFORMS ASSEMBLY FASS 1 


O3B1 OF 67 PFASONE STS SPSAVE SAVE SF 
O3B3 DE 44 LIX SRCBEG GET SOURCE FOINTER 
O3B5 09 NEX ANJUST 
O3B46 7F 00 SF CLR FASS SET FASS 
O3B9 DF 40 FASS1 STX SRCFTR SAVE PTR 
OSHBB BI OB 75 JSR FARSE PARSE UP THE LINE 
O3BE [IF 6F STX XTEMPFS SAVE SOURCE FOINTER 
O3CO 94 AF LIA A LABEL GET FIRST CHAR OF LAB. 
03C2 27 03 BEQ FASSI1 IF NO LABEL 
03C4 BI 08 A2 JSR PUTLIBL GO INSTALL LABEL 
O3C7 96 SS FASSII LIA A FRFLG GET PROCESS FLAG 
0309 26 03 BNE FASSI2 IF SET» PROCESS 
O3CB Bl OC 44 JSR FNI222 GO GET OPERATOR 
O3CE NE 6F FASSI2 LIX XTEMF'S GET SOURCE FTR 
O30 96 58 LOA A ENDFLG 
O32 26 04 BNE FASS13 
O3D4 9C 46 CFX SRCENT CHECK DINE 
O306 26 El BNE PASS TF NOT, LOOF 
O38 39 FASSI3 RTS 

x 

xX 

x 


xk FASTWO 

* PERFORMS ASSEMBLY FASS 2 
O3n9 TE 44 FASTWO Lx SRCBEG FOINT TO BEGIN. SOURCE 
O30 09 DEX ALNJUST 
O3nC 84 O1 LOA A #SOL 
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LOCN Bil R2 &3 


O3LE 97 8F STA A FASS SET FASS 2 

O3EO DF 40 FASS2 STX SRCFTR SAVE FOINTER 

O3E2 DE 4B Lx PC 

O3E4 [IF 6Ii STX XTEMF2 SAVE FC 

O3ZE6 DE 40 LIX SRCFTR GET FOINTER 

O3E8 BD OR 75 FASS2A JSR PARSE GO PARSE THE LINE 
OZER IF 4F STX XTEMPS SAVE FTR 

OSE 96 AF LOA A LABEL GET FIRST CHAR 
O3EF 27 09 BEQ FASS2B IF NOT THERE» SKIF 
O3F1 BD O9 OS JSR FNDL BL LOCATE LABEL 

O3F4 A& 00 LIA A Oy»Xx GET FIRST CHAR 
O3F4 84 7F ANI A #%7F RESET BIT 

O3F8 AZ 00 STA A QO»X FUT BACK 

O3FA 96 SS FASS2B LIA A PRFLG GET FROCESS FLAG 
O3FC 26 03 BNE PASS2X IF SETy DONT PROCESS 
O3FE BD O09 1F JSR FNIOFT GET OFERATION 

0401 96 90 FASS2X LUA A OFCNT CHECK BYTE COUNT 
0403 27 16 BEQ FASS2C IF QO» SKIP 

0405 946 SI LIA A FS3FLG CHECK FASS 3 

0407 27 04 BEQ OBJGEN IF SO» GO GENERATE CODE 
0409 946 K2 Lia A TAFE SEE IF TAFE ON 
O40R 27 07 BEQ MEMGEN IF NOT» CHECK MEMORY 
0400 BE 14 89 OBRJGEN JSR ORJCOL GO GENERATE CODE 
0410 96 St LOA A FSFLG CHECK FASSS 

0412 27 07 REQ FASS2C IF SO» SKIF MEMORY 
0414 96 E3 MEMGEN LOA A MEMORY SEE IF MEMORY ON 
0416 27 03 BEQ FASS2C IF NOT? SKIF 

0418 BDI 15 77 JSE MENCOD GO FUT IN MEMORY 
O41B 96 St FASS2C LIA A F3FLG CHECK FASSS 

0410 26 03 BNE SHORT 

O41F 7E 04 A4 JMF NOERR4 

0422 96 SE SHORT LIA A FRTFLG SEE IF FRINT 

0424 27 OL BEQ CHK2ER IF NOTs SKIF 

0426 96 AE LIA A LIST GET LIST FLAG 

0428 27 09? REQ CHRK2ER SKIP IF NO LIST 
042A 96 90 LOA A OFCNT 

0420 36 FSH 4A 

0420 BD OS C1 JSK FRTINF GO PRINT DATA 

0430 32 FUL A 

0431 97 90 STA A OFCNT RESTORE COUNT 

0433 86 FF CHK2ER LIA A #4FF 

0435 97 36 STA A ERRFLG SET FLAG 

0437 96 AS CHKERR LIA A ERRCNT GET COUNT 

0439 27 SA REQ NOERR IF Oy» NO ERRORS 
0438 DE 85 LOX ERRF TR GET POINTER 

043 EE 00 LIX O»Xx GET ERR ANDRESS 
O43F 9C 4D CFX SRCFTR CHECK IF HERE 

0441 26 32 BNE NOERR IF NOT» NO ERROR 
0443 94 AE LOA A LIST GET LIST FLAG 

0445 26 06 BNE GETERR IF LIST ONy SOURCE PRINTED 
0447 BD OS FF JSR PRTDAT FRINT DATA 

044A RY O06 42 JSR FRTSRC GO PRINT SOURCE TOO 
0440 DE 8S GETERR LIX ERRFTR GET ERROR FTR 

O44F 7A 00 AS HEC ERRCNT COUNT ONE DOWN 


0452 E64 O02 LOA RB 2X GET TYPE 
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LOCN 
0454 
0456 
04358 
045A 
0450 
O45F 
0461 
0464 
0466 
0468 
046K 
0446C 
0460 
046E 
0470 
0473 
04735 
0478 
047A 
0478 
0471 
O47F 
0481 
0483 
0485 
0487 
0489 
048C 
O48F 
0491 
0493 
0496 
0498 
0499 
049A 
0498 
049on 
O49F 
O4Al 
04A4 
04AG 
04A8 
O4AA 
04AC 
O4AE 
O4R1 


04K2 
0484 
O4B6 
0488 
O4EEB 
O4BC 


B1 
27 
tl 


C4 
27 
AG 
BI 
08 
uA 
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B2 B83 
15 REQ GETER2 
81 CMP B F2ERRI CHECK SAME 
03 BNE CHR2 
00 81 CLR F2ERRL 
82 CHK2 CMF KR F2ZERR2 
03 BNE CHKS 
00 82 CLR F2ERRK2 
83 CHKS CMP RB P2ERRS 
03 BNE GETER2 
00 83 CLR F2ERRS 
GETER2 INX 
INX 
INX 
85 STX ERRFTR STORE NEW FTR 
06 Sil JSR PRTERR GO INSERT ERROR MESSAGE 
C2 BRA CHKERR GO SEE IF MORE ERRORS 
00 81 NOERR LIX #P2QERR1 FOINT TO STORE 
03 LIA A #3 SET COUNT 
CERR FSH A SAVE COUNT 
77 STX QTEMPS SAVE PLACE 
00 LIA BR O»xX GET ERROR 
1S REQ CNXT IF Ov» GO NEXT 
36 LIA A ERRFLG GET FLAG 
OA BEQ FRT2ER 
AE LOA A LIST CHECK LIST ON 
06 BNE FRT2ER 
OS FF JSR PRTDAT 
06 42 JSR PRTSRC PRINT INFO 
7? PRT2ER LIX QTEMFS GET FOINTER 
00 LIA BH O»x GET ERROR 
06 Sil JSR PRTERR GO PRINT MESG 
77 CNXT LIX QTEMPS GET FOINTER 
INX FOINT NEXT 
FUL A GET COUNT 
TEC A ONE DONE 
Tt BNE CERR LOOF TILL DONE 
SF NOERR2 LOA A FAGFLG CHECK PAGE FLAG 
O3 BNE NOERRA 
11 31 JSR EJECT 
éF NOERR4 LIX XTEMPS GET SOURCE FTR 
38 LIA A ENTIIFLG 
2C BNE FIN 
46 CPX SRCEND CHECK IF DONE 
03 BEQ F200N 
03 EO JMP FASS2 
F200N RTS 
x 
xx CONTRL 
x OUTPUT TAFE CONTROL CHARACTERS 
04 CONTRL LIA BR #4 SET 4 CHARS 
09 BEQ CONTION 
00 FCTRL. LIA A Q»X 
O3 23 ASK TAF OUT 
INX 
HEC 
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LOCN 
0487) 
O4BF 
04C0 
04C1 
04C2 
0403 
0404 
04CS 
04C4 
04C7 


04C8 
04CA 
04CC 
O4CF 
040g 
O42 
04n3 
0405 


04né 
0408 
041A 
o4nn 
04E0 
04E3 
O4E5 
04E7 
O04EA 
O4En 
O4EF 
O4F 1 
O4F4 
O4F6 
OAF? 
O4F BR 
O4FE 
0500 
0503 
0505 
'O507 
O3509 
OSOB 
oson 
03510 
OS12 
0514 
0516 
0518 


Ri B2 83 


26 


RY 
DE 
6F 
6F 
94 
26 


F? 


04 


F4 


FT 


F7 


FF 


BA 


49 


4B 
AB 


CONTION 
TAFEON 


TAFEOF 


x 

xx TIELAY 
x DELAY 
DELAY 


XLOOF 
DECX 


DELDION 

X 

x 

x 

xx FIN 

xX END OF 
FIN 


FPRTMES 
CHKTAF 


LSTREC 


FIN2 


SETO 


FINS 


ENE 
RTS 
FCR 


FCR 


FOF 
LIA 
REQ 
LIX 
TEX 
BNE 
NEC 
ENE 


RTS 


TAFE CONTROL 


i 


B 


PCTRL. 


0¥09090 


Ox090¥0 


#4 
DEL DION 
#96 4FF 
LECX 


XLOOF 


PAGE 


SET COUNTER 


ASSEMBLY CLEAN UF 


LIA 
BEQ 
JSR 
ASK 
LIX 
LOA 
REQ 
LOX 
ISK 
L.A 
REQ 
JSR 
LIA 
JSR 
LOA 
JSR 
ESR 
LUix 
BSR 
LOA 
REQ 
LOA 
REQ 
ASR 
L.DX 
CLR 
CLR 
LOA 
BNE 


A 


PSFLG 
LSTREC 
FCRLF 
FRT2 
#NOERHD 
ERRORS 
FRIMES 
#ERRHD 
FLATA 
TAFE 
FIN2 
FRTREC 
#°S 
TAF OUT 
#°9 
TAF OUT 
NELAY 
#TAPEQOF 
CONTRL. 
FSFLG 
FING 
MEMORY 
FINS 
FIXCNT 
MEMP TR 
Q»xX 
1eX 
SYMBOL 
SYMGEN 


CHECK FASSS 
IF SOv FUNCH LAST RECORD 
CR LF 


SEE IF ANY ERRORS 
IF NOTs GOT FTR 
MESSAGE 

PRINT IT 

SEE IF TAFE ON 

IF NOTy SKIF 

GO FUNCH LAS 


PUNCH $9 
NELAY BEFORE TURN OFF 


CHECK FASS3 

IF SQ» SKIP 

CHECK MEMORY OPTION 
IF OFF» SKIF 

GO SET BYTE COUNT 
GET FOINTER 


CHECK SYMBOL ON 
IF SO» GO FRINT 


8 
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LOCN Bi B2 3 


OS1A 946 AE LMA A LIST SEE IF LIST ON 
OS1C 27 19 BEQ FING IF NOT SKIF 
OS1E BI O07 BA FINS JSR PCRLF CR LF 

0521 96 Bil LIA A FAGER SEE IF FAGE ON 
0323 27 OA BEQ FIN4 IF NOTy SKIP 
0525 96 Bil LIA A FAGER SEE IF FAGE ON 
0527 27 06 BEQ FIN4 IF NOT» SKIP 
OS29 CE 11 Dl LIX #EJISTR 

OS2C 7E 07 AB JMF FATA PAGE EJECT 
OS2F Cé& 04 FINA LIA BRB #4 

0531 Bl O7 BA GAFX JSR PCRLF 

0534 SA NEC 

0535 26 FA BNE GAFX PRINT 4 LINES 
0537 39 FING RTS NONE 

0538 20 SYMHE FCC i SYMBOL TABLES ¢ 

0539 20 

OS3A 20 

OS3B 33 

OS3C SY 

O53n 4h 

OS3E 42 

OS3F 4F 

0540 4C 

0541 20 

0542 54 

0543 41 

OS44 42 

0545 4C 

0546 435 

0547 3A 

0548 04 FCR 4 

0549 4E NOERHE FCC “NO’ 

OS4A 4F 

OS4B 20 ERRHYD FCC ’ ERROR(S) DETECTED’ 
O54C 45 


os4n 52 
O54E 52 

OS4F 4F 

0550 52 

O551 28 

0552 53 

0553 29 

0554 2 

O555 44 

0556 45 

O557 54 

0558 45 

0559 43 

O55A 54 

O55E 45 

O55C 44 

O55D 04 FCB 4 

x 


x 
XK SYMGEN 
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LOCN 


OSSE 
0560 
0562 
0564 
0567 
OS6A 
O56 
0370 
0372 
0573 
OS75 
0378 
OS7A 
OS7C 
OS7r 
OS7F 
OS81 
O582 
0584 
0586 
0589 
OS8A 
OS8E 
Oosen 
03590 
OS92 
0595 
OS96 
0598 
OS9R 
O59r 
OSAO 
OSA 
OSA3 
OSAS 


OSASG : 


OSAS 
OSAA 
OSAR 
OSAT 
OSAE 
OSAF 
OSE1 
OSB2 
OSB4 
OSBS6 
OSES 


OSEB 
OSBE 


7F 
7E 


ASSEMBLER SYSTEM V 


B2 


tt2 
CRE 


07 


00 
03 


BS 


ng 
38 
AB 
FO 


BA 


20 


C7 


Lo 


00 


39 


tp Wy 


nyo 


x SORT ANE 
SYMGEN LIA 
REQ 
LIA 
JSR 
LINX 
JSR 
JSR 
LIX 
TEX 
STX 
LSTSYM JSK 
LIA 
GETSYM LIX 
INX 
LIA 
BEQ 
FSH 
LOA 
LABOUT LIA 
JSR 
INX 
NEC 
BNE 
JSR 
LIA 
JSR 
INX 
LIA 
JSR 
STX 
JSR 
FUL 
CFX 
REQ 
CONT NEC 
ENE 
RRA 
NOF RT FSH 
LIA 
MOVFTR INX 
NEC 
BNE 
FUL. 
STX 
CPX 
BNE 
SYMFPRT JMF 
x 
x 
XK FASTHR 


1.4 


PRIN 
A 


R 


BR 


kB 
BR 


B 


B 


T SYMBOL. 


TYF114A 
#SYMHII 
FOATA 
SHELL. 
LBLEEG 


XTEMF 
PCRLF 
#4 

XTEMF 


OrX 
NOFRT 


#6 
O»X 
OUTCH 


LARBOUT 
OUT2S 
O»X 
QUTHEX 


OX 
OUTHEX 
XTEMF 
FRT2 


LBLEND 
SYMFRT 


GETSYM 
LSTSYM 


#7 


MOVPTR 


XTEMF 
LBLEND 
GETSYM 
FINS 
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TABLE 
CHECK FASS 3 
IF SO» DONE 


GO SFACE 4 


PRINT HEADER 
GO SORT 


SET POINTER 


SET 4 LABELS 
GET POINTER 


IF Ov» NO LABEL 


SET 6 CHARS 
GET CHAR 
PRINT IT 


CHECK DONE 


FRINT 2 SPACES 
GET MS ADDRESS 
PRINT IT 


GET LS VALUE 
PRINT IT 

SAVE PTR LOCATION 
FRINT 7 SPACES 
GET LINE COUNT 
CHECK TABLE DONE 


SEE IF 4 YET 


IF NOT» DO AGAIN 
OTHERWISEs START NEW LINE 


ADVANCE PTR 


SAVE PTR 
CHECK DONE 


K FERFORM ASSEMBLY FASS 3 


FASTHR CLR 
IMP 
x 


PSFLG 
FASTWO 


SET FASS 3 
nO FASS 2 
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LOCN 


O5C41 
O5C3 
OSCS 
058 
O5CA 
O5CC 
OSCE 
OSCF 
O5D4 
O53 
O55 
O517 
osne 
OSng9 
OSIIB 
osm 
OSIF 
O5E1 
O5E3 
OSES 
O5E7 
O5E9 
O5ER 
OSEC 
OSEE 
OSFO 
OSF3 
O5FS 
OSF7 
O5F8 
OSFA 
OSFrI 


OSFF 
0602 
04605 
0607 
0609 
0460C 
O460F 
0611 
0613 
0616 
0618 
O618 
O61l 
O61F 
0621 
0624 
0625 


Bl 


Bn 
8h 
CE 
LF 
94 
26 
39 
96 
27 
96 


DE 


08 
4A 
26 
DF 
86 
97 
De 
9C 
27 
AS 
97 
08 
9C 
27 
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BR2 B3 
*X PRTINF 
x FRINT ASSEMBLED DATA 
3C PRTINF ESR PRTTAT 
70 BSR FRTSRC 
02 00 LOX #RYTSTR 
71 STX XTEMF4 
vA LDA A DATFLG 
ol BNE FRTINA 
PRTING RTS 
BO FRTINA LIA A GENER 
FEB REQ PRTINI! 
90 PRTINE LOA A OFCNT 
éIl PRTINE LIX XTEMP2 
PRTINC INX 
NEC A 
FC BNE FRTINC 
60 STX XTEMP2 
o1 LOA A #1 
90 STA A OFPCNT 
71 LOX XTEMF4 
87 CFX BYTFTR 
Es BEQ FPRTIND 
00 LIA A O»xX 
7E STA A OPCODE 
INX 
87 CFX BYTFTR 
08 BEQ PRTING 
00 90 INC OPCNT 
00 LIA A Ox 
7F STA A OFFI 
INX 
71 FRTING STX XTEMF4 
OS FF JSR PRTDAT 
[4 BRA FPRTINE 
x 
x 
XK PRTDAT 
xX FRINT ADDRESS ANI! DATA 
07 BA FRTDAT JSR PCRLF 
03 1E JSR OUTS 
a9 LUA A PCFLAG 
08 BNE PRTPC 
oc C7 JSR OUT2S 
oc CS JSR OUT3S 
25 BRA PRT1 
60 PRTPC LOA A XTEMF2 
oc 0 JSR OUTHEX 
6E LIA A XTEMP2+1 
oc CC JSR OUTHXS 
90 LOA BRB OFCNT 
17 REQ PRT1 
7E LIA A OPCODE 
oc CC JSR OUTHXS 
NEC B 
12 BEQ  FRT2 


IF NO DATA» 
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GO FRINT ADLIR, DATA 
PRINT SOURCE 
SET MULTIFLE DATA FTR 
CHECK MULTIPLE 


IF SET» ITS THERE 
NONE 

CHECK GENERATE FLAG 
IF CLR» NO PRINT 
GET OPERAND COUNT 
GET OLD FC 

BUMF 


LO UNTIL FAST PRINTED 
SAVE NEW FRINTABLE PC 


SET COUNT 

GET STACK PTR 
CHECK FOR [IATA 
EXIT 
GET CHAR (BYTE) 
PUT IN FLACE 
RUMF POINTER 
CHECK MORE DATA 
IF NO» DONE 

SET COUNT 
GET NEXT BYTE 
FUT IN FLACE 
BUMF FTR 

SAVE FOINTER 
GO PRINT DATA 
LOOP TILL DONE 


= 
a 


GO DO CR LF 

PRINT A SF 

CHECK FOR FRINT FC 
IF SET» DO IT 


SKIP FIELD 

GET CURRENT PC 
PRINT MS 

GET LS 

PRINT IT 

GET COUNT 
PRINT OPCODE 


SEE IF DONE 
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LOCN 
0627 
0629 
062C 
0620) 
062F 
0631 
0634 
0636 
0639 
063C 
O63F 


0642 
0644 
0646 
0647 
0649 
0645 
O64E 
0650 


0651 
0654 
0657 
045A 
0650 
O46S5E 
0660 
0661 
0462 
0664 
0666 


0669 
066B 
04661 
O66F 
0671 
0673 
0675 
0677 
0679 
067H 
0670 
067F 


0681 
0682 
0683 
0684 
04685 


Bi 
96 
RD 


2A 


20 
20 
20 
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B2 BS 
7F LIMA A 
oc CC JSR 
NEC B 
on REQ 
80 LIA A 
oc CC JSR 
09 BRA 
oc CS PRT JSR 
oc CS FRT2 JSR 
oc CS FRTS JSR 
03 1E PRT4 JMF 
x 
xk FRTSRC 
xX FRINT A LINE 
sii FRTSRCO LIX 
00 PRTSL LOA A 
INX 
or CMF A 
05 BEQ 
03 20 JSR 
F4 BRA 
PRTS2 RTS 
x 
xk FRTERR 
x INSERT ERROR 
06 81 FRTERR LIIx 
07 H2 JSR 
00 S36 CLR 
06 &9 LIX 
ASL B 
04 REQ 
PTNXT INX 
TEC & 
FC BNE 
00 GOTMSG LIX 
07 AR SMF 
x 
87 MSGTEL FINE 
of FOR 
AE FIVE 
Cé FOB 
NE FIR 
F9 FOR 
16 FIR 
2F FIIB 
3C FOB 
53 FB 
78 FOR 
BE FIR 
x 
MSGHD FCC 


OF 1 
OUTHXS 


PRT 
OF2 
OUTHXS 
PRT4 
OUT3S 
OUT3S 
OUTSS 
OUTS 


OF SOURCE 


LINE TR 
Oyx 


#$0 

FRTS2 
OUTCH 
PRTS1I 


FAGE 12 


FRINT IT 


GET POINTER 
GET A CHAR 
POINT NEXT 
CHECK FOR CR 
IF SO» DONE 
PRINT IT 

NO AGAIN 
DONE 


MESSAGE INTO LISTING 


#MSGHI 
FSTR 
ERRFLG 
#MSGTBL 


GOTMSG 


FTNXT 
O»X 
FIIATA 


MESGO 
MESG1 
MESG2 
MESG3 
MESG4 
MESGS 
MESGS 
MESG7 
MESG8 
MESG? 
MESG1O 
MESGI1 


“xx 


PRINT HEADING 

SET PRINTED FLAG 
POINT TO TABLE 
MULT ERROR # * 2 
CHECK IF GOT 

POINT NEXT ADDRESS 
COUNT OFF 

CYCLE 

GET TEXT POINTER 
GO PRINT MESG 
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LOCN Fi B2 B3 
0686 04 FCR 4 
x 

0687 53 MESGO FCC “SYMBOL. TABLE OVERFLOW’ 
0688 59 
0689 4h 
068A 42 
O68 4F 
068C 4C 
O68LI 20 
O68E 54 
O68F 41 
0690 42 
0691 4C 
0692 45 
0693 20 
0694 4F 
0695 5é 
0696 45 
0697 52 
0698 46 
0699 4C 
O69A 4F 
069R 57 
069C 04 FCR 4 
0690 55 MESG1 FCC “UNDEFINED SYMBOL ’ 
O69E 4E 
O69F 44 
O6A0 45 
O6AL 46 
06A2 49 
06A3 4E 
06A4 45 
O6AS 44 
06A6 20 
06A7 53 
0608 59 
O6A9 41 
O6AA 42 
OS6AR 4F 
O6AC 4C 
OSA 04 FCR 4 
O6AE 40 MESG2 FCC “MULTIPLY DEFINED SYMBOL ’ 
O6AF 55 
O6B0 4C 
O6R1 54 
O6B2 49 
O6R3 50 
O6R4 4C 
O6R5 59 
O6BS 20 
O6R7 44 
O6K8 45 
O69 46 
O6BA 49 
O6BR 4E 


TSC 6800 ASSEMBLER SYSTEM V1.4 FAGE 14 


LOCN B1 B2 BS 
OS6BC 45 
OSB 44 
OGRE 20 
OG6EF 53 
06CO0O 59 
06C1 4 
06C2 42 
06C3 4F 
06C4 4C 
Oé6CS 04 FCR 4 
06C6 SS MESG3 FCC “UNRECOGNIZABLE MNEMONIC“ 
06C7 4E 
06C8B 32 
0609 435 
O6CA 43 
O6CR 4F 
O6CC 47 
O6CD 4E 
O6CE 49 
O6CF SA 
O60 41 
O6lit 42 
o6li2 4C 
O6l3 45 
06114 20 
O6nS 40 
O66 AE 
O6lt7 45 
O68 4h 
O69 4F 
O6TA 4E 
O6IBR 49 
Oé6liC 43 
Oé6nn 04 FCR 4 
O6IE 49 MESG4 FCC “TLLEGAL CHARACTER IN LABEL’ 
O60F 4C 
O6EO 4C 
O6E1 45 
O6E2 47 
O6E3 41 
O6E4 4C 
O6ES 2 
O6E6 43 
O6E7 48 
O6E8 41 
O6ED S2 
O6EA 41 
O6ER 43 
O6EC 54 
O6En 45 
O6EE S2 
O6EF 20 
O6FO 49 
O6F1 4E 
O6F2 20 


TSC 6800 ASSEMBLER SYSTEM V1.4 FAGE 15 


LOCN Bl B2 &3 
O6F3 4C 
O6F4 41 
O6F5 42 
O6F4 45 
O6F7 4C 
O6F8 04 FCR 4 
O6F9 49 MESGS FCC “ILLEGAL CHARACTER IN OPERAND’ 
O6FA 4C 
O6FR 4C 
O6FC 45 
O6FI 47 
O6FE 41 
OSFF 4C 
O700 20 
0701 43 
0702 48 
0703 41 
0704 S2 
0705 41 
0706 43 
0707 34 
0708 45 
0709 S32 
O70A 20 
O70B 49 
O70C 4E 
0701 20 
O70E 4F 
O70F SO 
0710 45 
O711 S32 
0712 41 
0713 AE 
O714 44 
O715 04 FCE 4 
0716 S32 MESGS FCC “RELATIVE BRANCH TOO LONG’ 
O717 45 
0718 4C 
O719 41 
O71A S54 
O71k 49 
O71C Sé 
O710 45 
O71E 20 
O71F 42 
O720 S2 
OA2Z1 41 
O722 4E 
0723 43 
0724 48 
0725 20 
0726 SA 
O727 4F 
0728 4F 
0729 20 
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LOCN B1 B2 B83 

O72A 4C 

O72R 4F 

0O72C 4E 

O720 47 

O72E O04 FCK 4 
O72F 33 MESG? FCC “SYNTAX ERROR’ 
0730 S9 

0731 4E 

0732 54 

0733 41 

0734 58 

0735 20 

0736 45 

0737 S2 

0738 S2 

0739 4F 

O73A S2 

O73R O04 FCR 4 
O73C 49 MESG8 FCC ‘ILLEGAL INDEX VARIABLE ’ 
0730 4C 

O73E 4C 

O73F 45 

0740 47 

O741 41 

0742 4C 

0743 20 

0744 49 

0745 4E 

0746 44 

0747 45 

0748 38 

0749 20 

074A Sé 

O74E 41 

074C S2 

0740 49 

O74E 41 

O74F 42 

0750 4C 

0751 45 

0752 04 FCR 4 
0753 49 MESG9 FCC “ILLEGAL CHARACTER FOR SPECIFIED BASE’ 
0754 4C 
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LOCN Bl B2 BS 
0761 SA 
0762 45 
0763 S2 
0764 20 
0765 46 
0766 4F 
0767 S2 
0768 20 
07469 33 
076A SO 
O76B 45 
076C 43 
0760 49 
O76E 46 
O76F 49 
0770 45 
0771 44 
0772 20 
0773 42 
0774 41 
0775 33 
0774 AS 
O777 04 FCR 4 
0778 49 MESG1O FCC . ‘ILLEGAL OF TION SWITCH’ 
0779 4C 
077A 4C 
0778 45 
0770 47 
O770 41 
O77E 4C 
O77F 20 
0780 4F 
0781 50 
0782 54 
0783 49 
0784 4F 
0785 4E 
0786 20 
0787 33 
0788 57 
0789 49 
078A 54 
O78KR 43 
O78C 48 
O78l 04 FCE 4 
O78E 54 MESGLL FCC ‘TOO MANY OPERANDS (DATA) ‘ 
O78F 4F 
0790 4F 
0791 20 
0792 40 
0793 41 
0794 4E 
0795 S9 
07946 20 
0797 AF 
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LOCN 
0798 
0799 
O79A 
O798 
079C 
o79r 
O79E 
O79F 
07A0 
O74Al 
O7A2 
O7A3 
O7A4 
O7AS 
O7AG 


O7A7 
O7AA 
O7AR 
O7AT 
O7AF 
O7B1 


O7B2 
O74 
O7B6 
0788 


O7BA 
O7BI 
O7 BF 
O7C1 
O7C2 
07C4 
O7C6 
0708 
O7CE 
O7CC 
O7CF 
O7TIO 
O7ti1 
O7K2 
O73 
O7TI4 
O7NS 


Bi 
50 
45 
52 
41 
4E 
44 
53 
20 
28 
44 
4t 
54 
41 
29 
04 


TF 
Bir 
DE 
20 


R2 ES 


03 20 
00 


Fé 


65 
04 
45 


Fi 
07 CF 
A8 
A8 


04 


00 SC 


11 31 


SYSTEM V1.4 


FCE 

x 

xk FRATA 

xX FRINT STRINGS 

FLOOF JSR 
INX 

FATA LIA A 
CMF A 
BNE 
RTS 

x 

xX FSTR 

x FRINT CReLF 

FPSTR STX 
ESR 
LDIX 
RRA 

x 

xx PCRLFE 

x FRINT CR AND 

PCRLF LOX 
ESR 
LIA A 
INC A 
STA A 
CMF A 
BHI 

FCRLF1 CLR E 
RTS 

FCRLF2 JMF 

CRLF FCE 

x 

xx OFSERR 

x FATAL ERROR R 


* GENERATES 3 =N 


4 


OUTCH 


OX 
#4 
PLOOF 


PAGE 


FRINT CHAR 
FOIUINT NEXT 

GET A CHAR 
CHECK FOR EOQT 
IF NOTesFRINT IT 
NONE 


THEN STRING 


XSAVE SAVE X 
PCRLF 
XSAVE GET FOINTER BAC K 
PLATA GO FRINT IT 
LF 
#CRLF FOINT 
FLATA GQ FRINT 
LINCNT GET LINE COUNT 
LINCNT BUMF IT 
#LINES SEE IF TIME TO EJECT 
PCRLF2 IF SOv GO NO IT 
JFLG CLEAR FLAG 

NONE 
EJECT GO FAGE EJECT 
$ltry$Ax¥0¥02070%4 
QUTINE 
OF “S 
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LOCN 
0706 
0707 
0709 
O78 
o7nn 
O7 DF 
O7E1 
O7E4 


O7ES 
O7ES6 
O7E8 
O7E9 
O7EC 
O7EE 
O7FO 


O7F2 | 


O7FS 
O7F 7 
O7F9 
O7FE 
O7F I 
O7FE 
0800 
0802 
0804 
0806 
0808 
0809 
O80RB 
080C 
ogor 
O80E 
0810 
0812 
0813 
0815 
0817 
0819 
O81c 
O81E 
0820 
0821 
0823 
0824 
0826 
0828 
082A 
082k 
O82n 
O82F 
0831 
0832 


SSEMBLER 


K2 


O1 
7E 
7F 
80 
o9 
oc 


40 
4E 
85 
00 
Ol 


81 


B81 

2 
03 
82 


83 


B3 


72 


8F 


34 


OFSERR 


x 


SYSTEM V1.4 


FSH A 

LOA A #Ol 
STA A OFCODE 
STA A OF 
STA A OFZ 
STA A PCFLAG 
JSR ALLIFCS 
PUL A 


XK ASMERRK 


x KEEP 
ASMERR 


ASME S 


ASME4 


ASME S 


TRACK OF ASSEMBLY 


FSH A 

STA A LSTERR 
FUL A 

TST ERRFLG 
BNE ASME? 
LOA KR #$FF 
STA RB ERRORS 
TST PASS 
BNE ASMES 
LOA B ERRCNT 
CMF BR #85 
BEQ ASME2 
FSH A 

LIA A SRCFTR 
LDA KR SRCFTR+1 
LIX ERRF TR 
STA A OX 
STA BRB ex 
FUL A 

STA A 2x 
INX 

INX 

INX 

STX ERRFTR 
LOA A ERRCNT 
INC A 

STA A ERRCNT 
CMF A #85 
BNE ASME? 
LIX #TOOMAN 
BSR FSTR 
Lis SFPSAVE 
RTS 

LOA A €$FF 
RTS 

LOA BO P2ERRI 
BNE ASME 4 
STA A FRERRI 
RTS 

LIA B FRERR2 
BNE ASMES 
STA A PRERR2 
RTS 

STA A P2ERRS 
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MAKE SURE FC ON 


ERRORS 


SAVE ERROR 
CHECK ERROR SUPPRESS 
IF ON» TRONT FROCESS 


SET FLAG 

CHECK FASS COUNT 
IF NOT FASS» SKIF 
GET COUNT 

CHECK EXCESS 

IF SO» IGNORE 
SAVE ERROR # 

GET HIGH 

GET LOW 

GET STACK FOINTER 
STORE HIGH 

STORE LOW 

GET ERROR # 

SAVE # 


ALIVANCE ERROR PTR 
SAVE IT 

GET COUNT OF 
RICK 


ERRORS 


ERROR LIMIT? 


GET FROFER RET ADR. 


NONE 


NONE: 


CHECK EMPTY 
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LOCN 
0834 
0835 
0836 
0837 


0838 S 


0839 
083A 
O83B 
083C 
O83Nn 
O83E 
OB3F 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
OB4A 


084k 
084C 
084i 
O84F 
Ossi 
0852 
0853 
0854 
0856 
0857 
0858 
O85 
OSSE 
0861 
0862 


0864 . 


0865 
0866 


0867 
086A 
O8ér 
O86F 
0871 
0873 
0875 


Bi B2 B3 


39 
39 
4S 
G2 
ee 


4F 
52 
20 
4c 
49 
4n 
49 
54 
20 
45 
58 
43 
45 
45 
44 
4S 
44 
04 


CE 
7F 
AG 
AR 
97 
AG 
AY 


18 
91 


91 


00 
00 
00 


ER 


00 
00 
00 
05 
93 
O1 
04 


93 
92 
91 


AF 
A4 


RTS 
RTS NONE 
TOOMAN FCC “ERROR LIMIT EXCEEDED’ 


FCE 4 
x 
xx RANIOM 
* RANDOM NUMBER GENERATOR USED FOR 
* HASHING FUNCTION 


RANIIOM FSH & SAVE B 
FSH A ANT A 
LIA BRB #€24 SET FOR 24 CYCLES 
LOOF LOA A RNIM GET FIRST BYTE 
ASL A 
ASL A 
ASL A 
EOR A RNIM XOR BIT 28 WITH 31 
ASL A 
ASL A GET RESULT IN CARRY 
ROL RNIIM+2 
ROL. RNIIM+1 
ROL RNIIM SHIFT ALL LEFT WITH C 
NEC & COUNT OFF 
BNE LOOF LOOF UNTIL DONE 
FUL A 
FUL B 
RTS 
x 
*x* HASH 


* HASH A SYMBOL TO A TABLE ADDRESS 
HASH LIX #LABEL. GET START OF LABEL 
CLR HASHCT SET HASH COUNTER TO 0 


LDA A Ox GET FIRST CHAR 
ADTL A Sex 
STA A RNDIM+2 FOLD THE LABEL 
LOA A 1X 
ANC A 4X 
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LOCN Bl B2 &3 


0877 97 92 STA A RNIMt1 
0879 AG O02 LOA A 2X 
O87B AY 03 ALC A 3X 
o870 97 91 STA A RNIN ANI FUT IN RANDOM GEN 
O87F 7C 00 A4 REHASH INC HASHCT KICK COUNTER 
0882 BD 08 4B MIX2 JSR RANDOM MIX EM UF 
O88S 96 93 LDA A RNDM+2 GET RESULT 
0887 84 F8 AND A #4F8 FIX FOR 8 BYTES 
0889 DS 92 LOA RB RNOM+1 
O88B C4 iF AND B #$1F LIMIT TO 8K 
O88 9B 41 AUL A LBLBEG+1 ADI ON BEGINNING 
O88F [9 40 AIC B LBLBEG ALTIRESS OF TABLE 
0891 97 6A STA A XTEMFP +1 
0893 [17 49 STA B XTEMF SET EFFECTIVE ADDRESS 
0895 [ll 42 CMP B LELEND 
0897 22 E? BHI MIX2 
0899 25 04 BCS MIX3 
O89k 91 43 CMF A LELEND +1 
O89 22 ES BHI MIX2 SEE IF IN RANGE 
O89F TE 49 MIX3 LOX XTEMF GET THE ADDRESS 
OBAL 39 RTS NONE 
x 
KX PUTLEL 
x ENTER LABEL IN SYMBOL TABLE 
O8A2 Bn C3 PUTLBL BSR HASH. GO HASH IT 
OB8A4 AG OO CHKFRE LIA A Ov»Xx GET SYMBOL ENTRY 
O08AS 27 13 REQ FPUTIT IF FREE» TAKE IT 
O8A8 BD O08 DE JSR CHRLBL GO SEE IF SAME 
O8AB 27 OB REQ HERROR IF SQ» MULTIFLE OCCURENCE 
osan Bn O08 7F JSR REHASH GO REHASH ON COLLISION 
O8BO 96 AA LOA A HASHCT GET COUNTER 
O8Rk2 81 28 CMF A #40 IF 40 COLLISIONS» FULL 
O8B4 26 EE BNE CHKFRE GO SEE IF FREE 
O8RS 846 00 LOA A #0 SET ERROR 0 
O8B8 7E 07 ES HERROR JMF ASMERR GO REPORT ERROR 
O8BE 96 4F PUTIT LOA A LAREL GET CHAR 
O8RI A7 00 STA A O»xX FUT IN TABLE 
OBBF 96 30 LOA A LABEL +1 
O8C1 A7 O1 STA A eX 
08C3 96 Sil LOA A LABEL+2 
O8CS A7 02 STA A 29x 
O08C7 96 S2 LOA A LABEL+3 
O8C9 A7 03 STA A 3X 
O8CB 96 53 LOA A LABEL +4 
O8CD A7 04 STA A 4X 
O8CF 96 S54 LIA A LABELS 
Ostii AZ OS STA A Sex 
0803 94 4K LOA A PC 
O83 A7 046 STA A 9X STORE FC CHI) 
O87 94 4C LOA A FCI 
OBl9 A7 07 STA A 7»xX STORE FC (LQ) 
O80B IF 75 STX LTE MF SAVE LABEL ADDRESS 
osnn 39 RTS NONE 
x 


xk CHKLBL 
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LOCN 


O8DE 
OBEO 
O8E2 
OBE4 
O8E6 
O8ES 
O8EA 
O8EC 
O8EE 


0905 
0908 
090A 
070C 
O9OF 
0911 
0914 
0916 
0918 
O91A 
O91C 
o9il 
O91E 


O91F 
0920 
0922 
0924 
0926 
0928 
O92A 
092C 
O92E 
0930 
0932 
0934 
0936 
0939 
O93R 


BD 
Ab 
27 
BD 
27 
BD 
96 
81 
26 
86 
39 
4F 
39 


97 


ASSEMBLER 


67 


ne 


7F 


6B 


SYSTEM V1.4 


x SEE IF LABELS MATCH 
CHKLEL LIA A #2 
LIA BB O»x 
ANI BB LBLMSK 
CMF BR LABEL 
BNE CRINONE 
LIA B LABEL+1 
CMF BO 1X 
BNE CRIONE 
LOA BR LAREL+2 
CMF BO 2X 
BNE CKIIONE 
LOA B LABREL+3 
CMF BR 3X 
ENE CRIIONE 
LOA B LAREL+4 
CMF B 4X 
BNE CRITONE 
LUA B LABELS 
CMP BR S»X 
CRONE RTS 
x 
xx FNOLBL 
* FINI A LABEL IN SYMBO 
FNOLBL JSR HASH 
FNINILO LIA A Ox 
BEQ FERROR 
JSK CHRLEL 
REQ GOTLBL 
JSR REHASH 
LUA A HASHCT 
CMF A #€40 
BNE FNTIMALO 
FERROR LOA A #¥4FF 
RTS 
GOTLBL CLR A SET FLAG 
RTS 
x 
KX FNDOPT 


*¥ FIND OPERATOR (TYPE) 


FNDOFT CLR A 
STA A TATFLG 
STA A MATFLG 
STA A FCCFLG 
STA A EJFLG 
LX OFNFTR 
STX XTEMP A 
LOX OP TFTR 
LIA A 2yex 
STA A TEMP 
LIA B ix 
LIA A Ox 
L.DIX #0F TABL 

CHK1 CMF A Ox 
REQ MATCH 


SET ERROR 


-IF NO» WERE OK 


NONE 


L TABLE 
GO HASH IT UP 
GET ENTRY 
IF EMPTY» NO FIND 
GO SEE IF MATCH 
IF SOy WE GOT IT 
GO MIX EM UP AGAIN 
GET COUNTER 
IF NO 40 TIMES» 
RECYCLE 
SET ERROR 


NO GOOD 


AND EXECUTE 


CLEAR FLAGS 

GET FOINTER 

SET UF 
GET FOINTER 
GET CHAR 
SAVE SRI CHAR 
GET 2ND) CHAR 
GET 1ST CHAR 
POINT TO TABLE 
CHECK FOR MATCH 
IF SO» GO SEE NEXT 
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LOCN 
O93I 
0940 26 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0948 
o94ti 
O94F 
0952 
0954 
0956 
0958 
09589 
O9SE 
O9ST 
O9SF 
0960 
0962 
0963 
0965 
0967 
0969 


Bl 


O96R 
09é6C 42 
O96n 
O96E 
O96F 
0971 
0972 
0973 
0974 
0975 
0977 
0978 
0979 
O97A 
0978 
097D 
O97E 
OP7F 
0980 
0981 
0983 
0984 
0985 
0986 
0987 
0989 
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B2 


1 00 


OR 


OR 
EC 
03 
07 
37 
O1 
EA 
70 
02 
03 
EO 
03 
7E 


04 
00 


03 


ol 


B3 


37 


73 


Lé 


NOMATL 


OF TERR 


MATCHI 


BINGO 


x 


TST 
BNE 
INX 
TNX 
INX 
INX 
INX 
INX 
CFX 
BNE 
LIA 
JMP 
STA 
CMF 
BNE 
FSH 
LIA 
CMP 
BEQ 
FUL 
BRA 
FUL. 
LIA 
STA 
LIX 
JMF 


> >D>D m D> D> 


>> D 


MATFLG 
OP TERR 


#OFTEND+6 
CHK 

#3 

OF SERR 
MATFLG 
1X 
NOMATL 


TEMP 
2yX 


BINGO 
NOMATL 


3X 
OF CONE 
4X 
Ox 
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CHECK FLAG 
IF SETy NO FIND 


CHECK END TABLE 
IF NOTy CHECK NEXT 
SET ERROR NO. 
GO REPORT 

SET FLAG 

CHECK 2ND) MATCH 
IF NOT» RESTART 
SAVE CHAR 

GET 3RD 

CHECK MATCH 

IF SO» GOT IT 
GET 1ST AGAIN 


FIX STACK 

GET OFCODE BASE 
SAVE 

GET TYFE AITRESS 
GO SERVICE TYFE 


*x THIS IS THE MNEMONIC RECOGNITION AND 
* BASE OFCODE TABLE 


OP TABL 


FCC 


FCR 
FOB 
FCC 


FCB 
FDE 
FCC 


FCB 
FIR 
FCC 


FCB 
FOR 
FCC 


FCR 
Fre 
FCC 


“ABA ’ 


$18 
TYPE 
“ALC” 


$89 
TYFES 
“ALT / 


$88 
TYPES 
“AND 


$84 
TYPES 
“ASL ¢ 


$48 
TYPES 
ASR’ 
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LOCN 
O9BA 
O9BE 
O98c 
o98n 
O98F 
0990 
0991 
0992 
0993 
O99S 
0996 
OP97 
0998 
0999 
O99R 
0990 
O99] 
O99E 
O99F 
OPAL 
OPA2 
O9AS 
OFAA 
OPAS 
OPA? 
O9AB 
OFA 
OFAA 
O9AR 
O9AL 
OPAE 
O9AF 
O9RO 
O9R1I 
O9BS 
O9B4 
O9BS 
O9RS 
O9R7 
O9B9 
O9BA 
O9BE 
O9BC 
OPEN 
O9BF 
09d 
OPC 
O9Ce 
O9CS 
O9cs 
O96 
O9C?7 
O9CS 
O9C9 
O9CR 


Ri 
33 
52 
47 
OL 
42 
43 
43 
24 
on 
42 
43 
53 
25 
or 
42 
45 
ol 
27 
or 
42 
47 
45 
2c 
ori 
42 
47 
54 
2E 
ol 
42 


49 
22 
on 
42 
48 
33 
24 
on 
42 
49 
54 
85 
ol 
42 
4C 
43 
oF 
oh 

9 
4c 
4F 
25 
On 
42 


ASSEMBLER 


B2 


7B 


06 


06 


06 


06 


06 


06 


06 


06 


06 


BS 
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FCR 
FOE 
FCC 


FCB 
FUR 
FCC 


FCR 
FOE 
FCC 


FCE 
FIRB 
FCC 


FCR 
FI 
FCC 


FCB 
FIR 
FCC 


FCR 
FOR 
FCC 


FCB 
FIR 
FCC 


FCE 
FIR 
FCC 


FCE 
FOE 
FCC 


FCR 
FTE 
FCC 


$47 
TYFES 
“RCC? 


$24 
TYFE2 
*RCS’ 


$25 
TYPE2 
“REQ? 


$27 
TYPE? 
“BGE ’ 


$2C 
TYPE? 
“BGT ’ 


$2E 
TYPE2 
“BHI? 


$22 
TYPE2 
‘BHS ’ 


$24 
TYFE2 
‘BIT’ 


$85 
TYPES 
‘BLE’ 


$2F 
TYPE2 
BLO’ 


$25 
TYPE2 
‘BLS’ 
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LOCN Bl B2 &3 


Oo9Cc 4C 

o9ch S33 

O9CE 23 FCB $23 
O9CF Of 06 FE TYFE2 
O9ni 42 FCC “BLT? 
O92? 4C 

o9ns 54 

oon4 2) FCE $20 
O9ns OL 06 FOR TYFE2 
O907 42 FCC “BMI ’ 
oongs 40 

Oo9nyg 49 

O9LlA 2R FCR $2K 
O9DB OL 06 FoR TYFE2 
oonn 42 FCC “BNE ’ 
OOTE 4E 

OOF 435 

OPED 26 FCR $246 
O9E1 Of 06 FE TYPE2 
O9E3 42 FCC “BRL / 
O9E4 SO 

O9ES 4C 

O9ES 2A FCR $2A 
O9E7 OL 06 FIR TYPE2 
O9E9 42 FCC “BRA ‘ 
O9EA 32 

O9ER 41 

O9FEC 20 FCR $20 
O9ED On 06 FIR TYFE2 
O9EF 42 FCC “BSR ’ 
O9FO 53 

OOF1 52 

O9F2 Bhi FCR $30 
O9FS OL 06 FOB TYPE2 
O9FS 42 FCC “RVC? 
O9FS Sh 

OOF? 43 

O9FB 28 FCR $23 
O9FF OL 06 FTIR TYPE2 
O9OFEBK 42 FCC “RVS° 
O9FC S56 

OOF! SZ 

O9FE 29 FCE $29 
OOFF OL 06 FLIE TYPE2 
OA01 43 FCC ‘CRA’ 
OA02 42 

OA0S 41 

OA04 11 FCR $11 
OAOS OF O03 FOE TYFEI 
OA07 43 FCC “CLE? 
OA0B 4C 

OAOY 43 

OADA OC FCR $0C 
OAOFR OL 03 FIVE TYFEL 


OAOD 43 FCC “CLI? 
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LOCN 
OADE 
OAOF 
OA1O 
OAL 
0A13 
OA14 
OAI1S 
OAL6 
OAI7 
OA19 
OALA 
OAIER 
OALC 
OALL 
OALF 
0A20 
OA2Z1 
OAR2 
OALS 
OA2S 
OAZS 
OA27 
OA2Z8 
OA29 
OA2R 
0ALC 
OACTI 
OAZE 
OAQF 
OAS 
OA32 
OASS 


OA34 3 


0ASS 
0A37 
0A38 
OAR9 
OAZA 
OASEH 
OASTI 
OASE 
OASF 
OA4D 
0A41 
0A43 
0A44 
0A4S 
0A4S6 
0A47 
OA4? 
OA4A 
OA4E 
OAAC 
OA4aT 
OA4F 


Ei 
4c 
49 
OE 
ort 
43 
4C 
$2 
AF 
on 
43 
4C 
ik) 
OA 
on 
43 
4f 
30 
81 
on 
43 
4F 
40 
43 
on 
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k2 


03 


78 


03 


7B 


03 


7B 


03 


03 


np 


RS 


FCR 
FOR 
FCC 


FCR 
FOB 
FCC 


FCR 
FIR 
FCC 


FCB 
FOE 
FCC 


FCR 
FOE 
FCC 


FCR 
FB 
FCC 


FCB 
FOB 
FCC 


FCR 
FOE 
FCC 


FCB 
FOE 
FCC 


FCR 
FIIB 
FCC 


FCB 
FOR 
FCC 


SOE 
TYPE 
‘CLA’ 


$4F 
TYPES 
“CLV! 


SOA 
TYPE1 
“CMF 


$81 
TYPES 
‘COM’ 


$43 
TYPES 
? CF’X é 


$8C 
TYPES 
“TAR ’ 


$19 
TYPEL 
‘NEC’ 


$4A 
TYPES 
“TES ” 


$34 
TYPEL 
‘TEX’ 


$09 
TYPE. 
“ENT? 


00 
TYPELS 
“EOR 


PAGE 


26 


TSC 6800 


LOCN 
OASO 
OAS 1 
OAS2 
OAS3 
OASS 
OASS 
OAS7 
OASB 
OAS9S 
OASE 
OASC 
OASTI 
OASE 
OASF 
OAGI 
O0AG62 
0OASS 
OAG4S 
OA6S 
OAG7 
0A68 
OA69 
OA6A 
OAG6E 
OAG6H 
OAGE 
OAGF 
0A70 
OA71 
OA73 
OA74 
OA7S 
OA7S 
OA77 
0A79 
OA7A 
OA7K 
OA7C 
OA7I 
OA7F 
OASO 
OAB1 
OAB2 
OAES 
OABS 
0A8S 
0AB7 
0OABS 
OAS? 
OASE 
OABC 
OAs 
OABE 
OABF 
OAD 1 


Bi 
4F 


ee 
oe 


88 
on 
45 
51 
55 
00 
10 
46 
43 
42 
00 
OF 
46 
43 
43 
00 
OE 
46 
44 
42 
00 
OF 
49 
4E 
43 
4c 
on 
49 
4E 
53 
31 
on 
49 
AE 
58 
08 
on 
4A 
4ti 
50 
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B2 


kO 


87 


7B 


03 


3S 


wd 
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FCR 
FOR 
FCC 


FCE 
FOE 
FCC 


FCR 
FB 
FCC 


FCB 
FOE 
FCC 


FCE 
FOB 
FCC 


FCE 
FR 
FCC 


FCR 
FIR 
FCC 


FCE 
FIVE 
FCC 


FCE 
FIR 
FCC 


FCRE 
FIR 
FCC 


FCR 
FOR 
FCC 


$88 
TYFES 
“EQU’ 


0 
TYPE1S 
‘FOR’ 


0 
TYPE? 
“FCC ’ 


0 
TYFE8 
“FTE / 


0 
TYFELO 
‘INC’ 


$4C 
TYFES 
“INS “ 


$31 
TYPE 1 
“INX?’ 


$08 
TYPEL 
* IMP’ 


$4E 
TYPES 
“SSR ’ 


$AN 
TYPES 
“LIA ’ 


$36 
TYPES 


“LS ¢ 
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LOCN 
OAP2 
0A93 
OA94 
OAIS 
OA97 
0AIB 
OAID 
OAIA 
OAR 
OAgTI 
OAVE 
OA9F 
OAAO 
OAAIL 
OAAS 
OAA4 
OAAS 
OAAG 
OAA7 
OAAP 
OAAA 
OAAKR 
OAAC 
OAAr 
OAAF 
OABO 
OARI 
OAR2 
OABS 
OABS 
OARS 
OAB7 
OARS 
OARS 
OABB 
OABC 
OABL 
OARE 
OARF 
OACI 
OAC2 
OACS 
OAC4 
0OACS 
OAC? 
OATS 
OATS 
OACA 
OACE 
OAC 
OACE 
OACF 
OALIO 
OAnL 
OADS 


B1 
44 
53 
SE 
on 
4c 
44 
58 
CE 
on 
4c 
53 
52 
44 
on 
4n 
4F 
4E 
00 
10 
4E 
41 
4u 
00 
10 
4E 
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B2 


sl 


ot 


7B 


ipa 


78 


03 


ED 


89 
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FCE 
FOB 
FCC 


FCE 
FOE 
FCC 


FCB 
FOB 
FCC 


FCR 
FOE 
FCC 


FCRE 
FOR 
FCC 


FCR 
FI 
FCC 


FCE 
FOE 
FCC 


FCR 
FOB 
FCC 


FCE 
FIR 
FCC 


FCE 
FE 
FCC 


FCR 
FDR 
FCC 


PAGE 


$3E 
TYPES 
‘LOX’ 


$CE 
TYPES 
“‘LSR’ 


$44 
TYPES 
“MON ’ 


0 
TYPE14 
“NAM? 


0 
TYPE17 
‘NEG’ 


$40 
TYPES 
*NOF’’ 


O1 
TYPE 
ac OFT éf 


.¢) 
TYPFEL2 
“ORA’ 


$8A 
TYPES 
“ORG ’ 


0 
TYPEL4 
“PAG / 


0 
TYPELS 
‘PSH’ 
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LOCN B1 B2 3 


OAN4 33 

OAS 48 

OALG 34 FCE $36 
OAL7 OD 88 FOR TYFE? 
OAL? SO FCC “PUL ¢ 
OADA SS 

OADER 4C 

OAC 32 FCR $32 
OAID OD 88 FOR TYFE?7 
OAIF S2 FCC “RMB ’ 
OAEO 40 

OAEL 42 

OAE2? 00 FCE 0 
OAES 11 1F FOR TYPFE18 
OAES S2 FCC “ROL ’ 
OAES 4F 

OAE7 4C 

OAEB 49 FCB $49 
OAES OF) 7B FOE TYPES 
OAER 32 FCC “ROR ’ 
OAEC 4F 

OAETH 32 

OAEE 44 FCR $44 
OAEF OD 7E FOR TYFES 
OAFL S2 FCC “RTI? 
OAF2 34 

OAFS 49 

OAF4 SRE FCR $38 
OAFS OL 03 FOB TYFEL 
OAF? S2 FCC “RTS” 
OAFS 54 

OAF9 Sy 

OAFA 39 FCR $39 
OAFR OL 03 FE TYPEL 
OAFI 353 FCC ‘SRA’ 
OAFE 42 

OAFF 41 

OBOO 10 FCR $10 
ORO1 OL 03 FOR TYFEL 
OROS S3 FCC “SRC ’ 
OBO4 42 

OHOS 43 

ORO06 82 FCE $82 
ORO7 OF Si FOB TYPES 
OHO9 33 FCC ‘SEC’ 
OBOA 45 

OBOB 43 

OBOC OD FCR $OLl 
OROD OL 03 FOB TYPED 
OKOF 33 FCC ‘SET’ 
OB10 435 

OB11 49 

OB12 OF FC $OF 
OBI3 OL 03 Fok TYPED 


OBLS S3 FOC ‘SEV’ 
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LOCN Bi B2 83 


OBR16 45 

OBL? S36 

OBR18 OB FCE $08 
OB19 OL O38 FIUR TYPEL 
OB1B 53 FCC “SFC / 
OB1C 50 

OBLD 43 

ORLE 00 FCB 10) 
ORIF OF BI FOR TYFE11 
OK21 S33 FCC ‘STA’ 
OR22 54 

OR23 41 

OR24 97 FCE $97 
OB25 Ol 34 FIR TYFE4 
OR27 33 FCC ‘STS? 
OR28 S4 

OR29 S33 

OR2A 9F FCE $9F 
OB2B On 54 FOR TYFE4 
OR20 S33 FCC ‘STX’ 
ORZE 54 

OB2F 38 

OBR3O DIF FCR $F 
OB31 Of 54 FB TYFE4 
OR33 33 FCC ‘SUB?’ 
ORS4 SS 

OB35 42 

OB36 80 FCR $80 
ORS7 OY Si FDR TYPES 
OR39 33 FCC “SWI? 
OB3A 57 

OR3B 49 

ORSC SF FCR $3F 
OkR3n OL 03 FIRE TYFE1 
OR3F 54 FCC “TAR? 
OB40 41 

OR41 42 

OB42 16 FCR $16 
OR43 OL 03 FIR TYFEL 
OR45 54 FCC “TAP? 
‘OH46 41 

OB47 SO 

OR48 06 FCB $06 
OB49 OL 03 FIR TYFEL 
OBR4E S4 FCC ‘TRA’ 
OR4C 42 

OR4T 41 

ORB4E 17 FCR $17 
OR4F OL 03 FE TYPEL 
ORSI &4 FCC ‘TRA’ 
ORS2 SO 

ORS3 41 

ORS4 07 FCR $07 
ORSS Of 03 FIR TYPE 


OBS7 54 FCC tat" 
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LOCN 
OBS8 
ORS? 
ORSA 
ORSE 
ORSI 
OBSE 
OBSF 
O60 
OR61 
OR63 
ORS4 
OR6S 
OR4SS 
0847 
ORSS 
OR6A 
ORSE 
OR6C 
OBS6N 
OB6F 
0B70 
OB71 
OB72 
OR73 


OB7S 
OR77 
OB78 
OR79 
OB7E 
OBR7L 
OBR7F 
OR81 
ORS3 
ORSS 
OR87 
ORSA 
ORSKH 
ORSL 
ORSF 
OR91 
OR9S 
OBIS 
OB97 
OB99 
OR9YE 
ORST 
OR9SF 
OBA 
OBRA3 
ORAS 


OBA? - 


OKAA 


Bl 
en) 
34 
40 
on 
54 
53 
38 
30 
on 
a4 
34 
4c 
00 
10 
w4 
98 
oS 
3S 


on 
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R2 HS 
FCR $4 
7B FLIE TYFES 
FCC “TSX? 
FCE $30 
O03 FIR TYFEL 
FCC ‘TTL? 
FCE 0 
E? FOR TYFEL7 
FCC “TXS’ 
FCR $35 
03 FR TYFEL 
OFTEND FCC ‘WAI’ 
FCE $3E 
03 FOR TYFEL 
xx PARSE 
* FARSE A LINE OF 
* ANID CHECK SYNTAX 
48 PARSE LOA A LINEYT 
FARSOA INX 
TEC A 
FC RPL FARSOA 
7k STX QTEMF 
Bri STX LINFTR 
FF PARSEO LIA A #%FF 
hal be STA A FPRELG 
SE STA A FRTFLG 
SF STA A FAGFLG 
oc 63 ISK CLRLAKB 
CLR A 
90) STA A OFCNT 
AR STA A MODFY 
70 STA A TEMF 
59 STA A FCFLAG 
81 STA A PR2ERRI 
82 STA A FPRERR2 
83 STA A FP2ZERRS 
56 STA A ERRFLG 
94 STX OF TETR 
96 STX OF NF TR 
7B L.TIX QTEMF 
00 LIA A O»X 
or CMF A #40 
03 BNE CHKCOM 
oc 2M JMF FARSES 
2A CHKCOM CMF A #’°xX 


SOURCE 


FAGE 31 


INTO FOINTERS 


SAVE FRINT FOSITION 


SET FROCESS FLAG 


GO CLEAR LABEL STORE 


SET OF COUNT =0 
SET FLAG 


GET FIRST CHAR 
CHECK FOR EMPTY 


CHECK FOR COMMEMT 
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LOCN Bil B2 E3 


OBAC 27 78 BEQ FINIICK 

OBAE 81 20 FARSEL CMF A ¥’ CHECK FOR NO LABEL 
OBBO 27 22 REQ FARSE2 

OBB2 97 59 STA A FCFLAG 

OBH4 81 41 CMF A FA CHECK FOR LETTER A 
OBBS6 25 04 BCS LABERR 

OBBS 81 SA CMF A €°Z CHECK FOR Z 

OKBA 23 07 BLS FARSLA 

ORBC 86 04 LABERR LIA A #4 SET ERROR 

OBBE BI O07 ES JSR ASMERR 

OBC1 20 OE BRA FARSIEB FINISH LINE 

ORCZ BD OC BF FARSIA JSR COPL EL GO COFY THE LABEL 
ORCS 40 TST A 

ORC7 24 08 BNE. FARSIB 

OBC9 Ci OL CMF BR #€¢0 CHECK FOR CR 

OBCR 27 40 REQ PARSE S 

OBC Ci 20 CMF RK ¥’ 

OBCF 26 EE BNE LABERR 

ORD1 Br OC SO FARSIB JSR FINNS? GO FIND A SFACE 
OBD4 Br OC SC FARSE2 JSR NXTBL2 GO GET NEXT TOKEN 
OBD7 27 34 BEQ PARSE 3 IF Zy NO OPERATION 
OB? SF CLE B 

OBA E77 SS STA KB FRFLG SET PROCESS FLAG 
OBNC 84 FF LOA A #€$FF 

OBDE 97 59 STA A FCFLAG 

OBEO [IF 94 STX OF TETR SAVE OPERATION FOINTER 
OBE2 08 INX 

OBES A& 90 LOA A OX 

OBES 81 OD CMF A #60 

OBE7 27 16 BEQ FARS2F 

OBEY 08 INX 

OREA AS OO LIA A O»x 

OBEC 81 OD CMF A $0 

OREE 27 OF BEQ FARS2F 

OBFO 20 12 BRA FARS2A 

OBF2 946 SF FEVAL LOA A FASS 

ORF4 4A DEC A 

OBFS 97 S36 STA A ERRFLG 

OBF7 BO 11 0S JSR EVAL. GO EVALUATE 

OBFA 7F 00 56 CLR ERRFLG ; 

OBFI 39 RTS RETURN 

OBFE O02 NOF SPACE 

OHFF 84 03 PFARS2F LOA A #$03 

0CO1 20 48 BRA PARFF2 

0CO3 O02 NOF SPACE 

0CO4 BI SS PARS2A BSR NXTBLIK 

OCO06 27 25 BEQ FARSES 

OCOB 81 41 CMF A #°A IS IT AN A? 

OCOA 27 OS BEQ FARS 20 

Ococ 81 42 CMF A #’°R Is IT A B? 

OCOE 26 14 BNE FARS2E. 

0C10 SC FARS2EB INC B 

Ocit SC FARS20 INC B 

OC1i2 08 INX 


0C13 AS OO LDA A OrYx GET CHAR 
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LOCN 
oc1s 
0c1i7 
oc1g9 
OC1B 
ocin 
OCILE 
0C20 
0C24 
OC26 
0C27 
0c29 
OC2E 
ocean 
OC2F 
OC31 
0033 
OC36 
0C38 
0039 
OC3E 
oc3c 
OCSE 
0C40 
0C42 
OC 44 
0046 


0c4s8 7 


OC4E 
oc4an 
OC4F 
OCSO 
ocs2 
0cS4 
OCSS 
0css 
OCSA 
OCSE 
Ocsc 
OCSE 
0C40 
0062 
0064 


0C65 
0C468 
OC6A 
océn 
OC6F 


OC? ¢ 


Bil 
81 
27 
81 
27 


CE 
DF 


DF 
DF 


. 20 


ASSEMBLER SYSTEM V1.4 
BR2 83 
or CMF A 
20 BEQ 
20 CMF A 
iF BEQ 
PARS2J TEX 
04 ERA 
RME 
96 FARS2E STX 
FINICK INX 
00 LOA A 
on CMF A 
F9 BNE 
70 FARSES LIA A 
07 BEQ 
7k STX 
07 16 PARSE? JSR 
7B FARSES LIX 
FARSES RTS 
AR FARSE4 STA EB 
RTS 
AB FARS2H STA B 
ic ESR 
EB REQ 
EO ERA 
4k FND222 LIX 
60 STX 
Oo? iF JMF 
70 FARFF2 STA A 
07 BRA 
FINDSF INX 
00 FINDS2 LIA A 
or CMF A 
OE REQ 
20 CMF A 
FS BNE 
RTS 
NXTBLK IWNX 
00 NXTBL2 LIA A 
20 CMF A 
F9 REQ 
on CMF A 
NXTBL3 RTS 
x 
*K CLRLAR 
* CLEAR LABEL 
00 20 CLRLAB LDX 
4F STX 
20 LIX 
o1 STX 
oS STX 
RTS 


¥¢Tl 
FARSE4 
#/ 
FARS2H 


PARSE 
4 
OFNE TR: 


OrX 
#$0 
FINDCR 
TEMF 
PARSES 
QTE MF 
OF SERK 
QTEMF 


MODE Y 


MODFY 
NXTBL2 
FARSES 
FARS2E 
FC 
XTEMF2 
FNDOPT 
TEMF 
FINCK 


O»X 
#¢0 
NXTEL3 
¥/ 
FINOSF 


OX 

; 
NXTBELK 
#$0 


STORAGE 
#0020 
LABEL 
¥$2020 
LABEL +2 
LABEL +4 


BRUMF 


FAGE 33 


IT A SFACE? 


Ts 


FOINTER 

GET CHAR 

Is IT A CR 

IF NOTs GET NEXT 


LONE 
SAVE. 
GET NEXT 


GET FC 
SAVE IT 


GO LOCATE CR 
BUMP POINTER 
GET THE CHAR 
CHECK FOR CR 


Is IT A 
IF NOT» 
NONE 
BUMP POINTER 
GET CHAR 

IS IT A SPACE? 


SPACE? 
GET NEXT 


IF SO* GET NEXT 
Is IT A CR 

NONE 

SET EM 
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LOCN 


0C72 
OC7A4 
0c75 
0C76 
0C79 
oc7C 
OC7E 
0cB0 
ocel 
0084 
0c8é4 
0C88 
OcB9 
OC8B 
OCBE 


OC8F 
Ocal 
OC9S 
0oc9s 
0c9?7 
OC99 
OC9R 
ocger 
OC9F 
OCAL 
OCAS 
OcaAsS 
OCA? 
OCA8 
OCA? 


OCAA 


Bi 


Qe 
08 
08 
7C 
7C 
20 
De 
08 
7C 
20 
DE. 
08 
LF 
7C 
39? 
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B2 83 
x 
xx ADDFCN 
xX INCREMENT FC N TIMES 
xX SET OFERAND (BYTE) COUNT 
4B ANDFCS LITix FC GET THE FC 
INX 
INX RUMP TWICE 
00 90 INC OF CNT 
00 90 INC OF CNT KICK OFERAND COUNT 
OA BRA ALLFCO 
4B ADQFC2 LIX FC GET THE FC 
INX RUMF IT 
00 90 INC OFCNT 
02 BRA ADLECO 
4B ADOPCL Lox FC 
AQOFCO INX BUMF IT 
45 STX FC FUT BACK 
00 90 INC OF CNT 
RTS NONE 
x 
ax COPLEL 
* COFY LABEL TO LABEL STORE 
1B COPLEL &Sk GETCHR 
4F STA A LABEL 
17 BSR GETCHR 
30 STA A LABEL+1 
13 BSR GETCHR 
31 STA A LAREL+2 
OF BSR GETCHE 
32 STA A LABEL+3 
OR BSR GETCHR 
wo STA A LAREL+4 
07 BSR GETCHR 
u4 STA A LABEL+S 
RTS RETURN 
COFDON INX 
RTS 
x 
RME 2 
x 
x 
*xk GETCHR 
x GET A CHARACTER 
00 GETCHR LIA A OvX 
7F AND A #$7F MASK PARITY 
TAR 
30 CMF A #0 
oc BCS FIX IF <Q» FIX STACK 
39 CMF A €°9 
EF BLS COFTION IF «<=9y OK 
41 CMF A #°A 
04 BCS FIX IF <Ay FIX STACK 
oA CMF A #€°2Z 
EE? BLS COFTION IF <=Zy OK 
FIX INS 
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LOCN 
occ2 
OCCS 
occ4 


occs 
occ? 
occg? 


occc 
OCCE 


Ocho 
Oct 
Ochs 
Ocrs 
OCnhé 
ocns 


OCIIE 
ocnc 
ocnnh 
OCUE 


OCIIF 
OCEL 
OCES 
OCE4 
OCES 
OCE7 


OCES 
OCEA 
OcEC 
OCEN 
OCEF 
OCF 1 
OCFS3 
OCFS 
OCFS6 
OCF8 
OCF9 


OCFA 
OCFC 
OCFE 


Bl 
31 
4F 
39 


Bi 
80 
7E 


8I 
20 


ER 
A? 
A? 
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B2 


02 
00 
03 


02 
F9 


08 
03 


07 
03 


OF 


40 


7it 
O1 
Ol 
00 


71 
00 


O1 


RS 


O11. 


00 
00 


INS FIX STACK 
CLR A SET A 
RTS DONE 

x 

KK OUT3S 


K PRINT 3 SFACES 

OQUTSS BSR OUTSZ 

OUT2S BSR OUTSZ 

OUTSZ JMF OUTS PRINT A SPACE 

x 

*K QUTHXS 

K PRINT 2 HEX DIGITS AND A SPACE 

QUTHXS ESR OUTHEX GO FRINT NIGITS 
BRA OUTSZ 


x 
xk QUTHEX 
xX PRINT A AS 2 HEX DIGITS 
QUTHEX FSH A SAVE 
BSR HE XL. GO CONVERT 
ESR FRTIT GO FRINT IT 
FUL A 
BSR HEXR GO CONVERT 
FRTIT JMF OUTCH GO FRINT 
x 
HE XL. LSk A 
LOR A 
LSR A 
LGR A 
4 
HEXR AND A #$F MASK DOWN 
AlN A = ##90 
DAA 
Alc A #40 
TAA 
RTS TRICK CONVERT 
xX 
xk SUB16 
* 16 BIT SUBTRACT 
SUR16 STA A TEMF SAVE 
LIA A LyX 
SEA 
STA A 1X 
LIA A Ox 
SRC A TEMF 
STA A O»x 
ROL. A 
EQR A #1 
ROR A SET ARITH CARRY 
RTS 
x 
KK ATITILSG 
xX 16 BIT Ann 
ALI 64 Aum B LyX Ang ON 
AIC A Ox ADL WITH CARRY (MS) 
STA & OK SAVE 
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LOCN 
OLiood 
Oli02 


On0ds 


O10} 
onos 
Old 
onon 
OOF 
Old 
on14 
OL1LS 
oni8 
Onia 
onit 
on20 
on2et 
on23 
Ores 
oLne7 
ones 
OL2A 
onec 
OL2F 
ons. 
On34 


On3ss 
Orns? 
Ons? 


Onsc 
OnseE 
0040 
On43 
on4s 
on47 
On4ag 
onac 
ON4E 


Orsi 


Rl 
E?7 
39 


96 


Bh 
96 
27 
Bi 
26 
96 
D6 
CE 
Bh 
4F 


07 


946 
26 
BD 
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B2 BS 
Ol STA BRB l»XxX SAVE LS 
RTS 
x 
xx TYPED 
Kk HANDLES TYFE1 INSTRUCTIONS 
OC 86 TYPEIL JMF ANNFECL GO FIX FC 
x 
xX TYPE2 
* HANDLES TYPE2 INSTRUCTIONS 
AB TYPE LOA A MOLFY CHECK MODIFY FLAG 
42 ENE TYP 3R 
OC 7E JSR ADNPC2 
BF LIA A FASS CHECK FASS COUNT 
23 REQ TYPE2H IF PASS is SKIP 
li 0S JSR EVAL GO EVALUATE OFERANI 
16 BNE TYFELE IF EVAL ERROR» UNDEFINED 
4B LIA A FC 
4C LOA B FC+1 REFERENCE ADDRESS 
00 7B LIX #QTEMF POINT 
Oc ES JSR SUBI6 GO SUBTRACT 
CLR A 
7C LOA B QATEMF +1 GET LS RESULT 
7F STA RB OFT SAVE BRANCH AMOUNT 
O1 BFL TYPE2A IF FOS» SKIF 
COM A COMPLEMENT A 
7k TYPFE2LA CMF A QTEMF © CHECK SIGN EXTENSION 
08 BEQ TYPE2D IF EQUALy OK 
00 7F TYFE2ZR CLR OFT SET BRANCH = 0 
06 LIA A #6 
07 ES JMF ASMERR GO REFORT ERROR 
TYPE20 RTS NONE 
x 
KK TYPES 
xX HANDLES TYPES INST. 
AB TYFES LOA A MOLFY GET MODIFIER 
13 BNE TYP SR IF SET» ERROR 
Olk AS TYPESZA JSR INTIEX GO CHECK INDEXED 
x 
*xk EXTENT 
* CHECKS FOR EXTENDED ADDRESSING (DEFAULT) 
BF EXTEND LOA A FASS 
0°? BEQ EXTENI CHECK FASS=1 
11005 JSR EVAL. GO EVALUATE OFERAND 
7B EXTENO LIX QTEMF GET RESULT 
7F STX OF 1 SET BYTES 273 
13 BSR FIXMOD 
OC 72 EXTENL JMP ALNECS KICK FC AGAIN 
03 TYF SR LIA A #3 
07 Td JMF OF SERR 
x 
XK TYPES 
* HANDLE TYPES INST. 
OE SF TYPES SR IMMET! CHECK IMMEDIATE 
* 


KK TYPE 
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LOCN 


ons4 
ons? 


Ols9s 
OSE 
Onsec 
OSE 
OnNl60 
omé2 
OLI64 
OLI6S 
OLI67 
Olé? 
OLGE 
onén 
OlU6F 
Oni 
on72 
On73 
on7s 
on77 
oli79 
On7A 


OL7# 
Orn7n 
OLIVE 
ongo 
Onge 
one4 
ones 


ones 
Olea 
OlUgE 
ornen 
OLIgr 
Ong 1 
OL9S 
ong4 
OLI9S 
On97 


Ong? | 


OngeC 
ongn 
OLGE 
ONIAO 


Bl 


Rit 
20 


96 
44 
2A 
06 
CR 
07 
20 
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B2 BS 
x HANDLE TYFE4 INST. 
OE 04 TYFE4 JSR DIRECT GO CHECK DIRECT 
EO BRA TYPESA DEFAULT EXTENT! 
* 
*k FIXMOL 
x SET UF MODIFIER 
O1 TFIXMD ESR FIXMOL 
RTS 
FE FIXMOR LDA B OPCODE 
80 CMF EF #$80 
05 BCC FIXMS CHECK NO MODIFIER 
AB FIXM4 LDA A MOLFY 
36 BNE TYPEZC CHECK ILLEGAL 
RTS 
OF FIXMS AND B #6F 
OR CME RK #68 CHECK NO MODIFIER 
FS BHI FIXM4 
AE FIXMS LIA A MOLFY GET MODIFIER 
2B REQ TYPEZC 
HEC A 
NEG A 
40 ANI A #$40 
7E AUD A OFCODE 
7E STA A OFCODE FIX UF OPCODE 
CLR A RESET ERROR 
RTS 
x 
*K TYPES 
* HANIILE TYPES INST. 
AR TYPES LOA A MODFY GET MODIFIER 
NEC A 
on BPL TYFEZA CHECK INHERENT (ArB) 
7E LUA R OFCODE GET OF CODE 
20 ALL BR #$20 ALL! ON 
FE STA BR OFCODE FUT BACK 
Bi BRA TYFE3A GO DO TYFES 
x 
*K TYFE? 
x HANDLE TYPEZ INSTRUCTIONS 
AR TYFE7 LOA A MOLFY GET MODIFIER 
NEC A 
BF, BMI TYP3R 
7E TYPE7ZA LUA B OPCODE GET CONE 
3F CMP BR #$3F CHECK PUSH OR FULL 
03 BLS TYFEZD 
NEG A 
10 ANID A ##10 MASK DOWN 
TYPE7D ABA MODIFY 
7E STA A OFCONE SAVE 
OC 86 JME ADLIECL KICK PC 
TYFE7ZC INS 
INS 
O% LIA A #3 
07 16 JMP OF'SERR 
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LOCN 


OLAS 
OLAS 
OnA8g 
OTIAA 
OLAC 
OTIAE 
OLIBO 
OLB? 
OnkR4 
ONES 
Ons 
OLBA 
OLEC 
ODBE 
orico 
orc? 
onc4 
oncéd 
oncs 
orc? 
Orlck 
oncn 
ODCKE 
Onn? 
Onn4 
Onns 
Ong 
Onn 
onngc 
onnnh 
ODEO 
OLE2 
OLE4 
OES 
OLE? 
OTE 
OnER 
ODEL 
Oner 
ODF 1 
OLF3 
OIF § 
ODF 7 
OLF9 
OLFA 
OLFC 
OnF.n 
ODFE 
OEOL 
QOEO2 
0E03 


Bl 


ASSEMBLER 


B2 BS 


00 7F 


Oc 7E 


07 Lé 


xk INDEX 


* CHECK FOR 
* RETURN IF 


INDEX 


INDEX1 


INIIEX2 


INDEXS 


INDEX4 


INDIIEOO 


INDEXO 


INIIEX9 
INDEXS 


FIXXX2 


L.tixX 
CLR 
LIA 
CMF 
BNE 
LOA 
CMF 
BEQ 
CMF 
ENE 
RRA 
LIA 
CMF 
REQ 
CMF 
REQ 
CMF 
BEQ 
INX 
ERA 
LOA 
REQ 
JSR 
LOA 
STA 
ASR 
BNE 
INS 
INS 
JME 
LOA 
CMF 
BNE 
INX 
LIA 
CMF 
BEQ 
CMF 
BEQ 
RRA 
LIA 
Ain 
STA 
RTS 
LIA 
INS 
INS 
JMP 
INS 
INS 


RTS 


SYSTEM V1.4 


INDEX ATWRE 


NOT 
XTEMF IL 
OF 1 
OX 
#°X 
INDEX1 
1X 
#/ 
INDEX 
A $f 
INDEX 
INDEXS 
A OvXx 
A #7» 
INDEX4 
A #¥’ 
INDIEXO 
A #€$ft 
INKEXO 


>D >> 


INDEX1 
A PASS 
INDEX3 
EVAL. 
QTEMF +1 
OF 1 
TFIXME 
FIXXX2 


> D 


ALDECZ 
A 1X 
A #*°xX 
INVEXS 


A 1X 
A #7’ 
INDEX2 
A $f 
INDEX2 
INDEXS 
OF CODE 
#410 
OP CODE 


ot om 


A #8 


OP SERR 


FAGE 38 


ING 
GET OPERAND FTR 
FIRST CHAR 


IS IT AN X? 
IF NOTy CHECK NEXT 


GET CHAR 
CHECK FOR COMMA 


CHECK FOR SPACE 
IF SQ» EXTENDED 


CHECK PASS COUNT 
GO EVALUATE 


SET OFFSET 


FIX STAC 


GET NEXT CHAR 
Is IT X 
IF NOTy EXTENDED 


GET FOLLOWING 


MUST BE SPACE 
IF SOv INDEXED 


GO REFORT ERROR 


FIX STACK 
NONE 


TSC 6800 ASSEMBLER SYSTEM V1.4 FAGE 39 


LOCN Bi B2 B3 
KX TTRECT 
* CHECK FOR DTRECT ADDRESSING 


OE04 TIE 6 NIRECT Lyx XTEMF' I 
OEO4 846 FF LOA A #4FF 
OEO8 97 Sé STA A ERRFLG DISABLE ERRORS 
OEOA 97 60 STA A LELMSK SET MASK 
OEOC LIF 73 STX XTEMFS SAVE FOINTER 
OEQOE BI 11 OS JSR EVAL GO CALCULATE 
OEL11 7F 00 56 CLR ERRFLG ENABLE ERRORS 
OEL4 Cé 7F LOA BK #S7F 
OE16 i7 60 STA &R LBLMSK RESET MASK 
OE18 TE 6B L. TUX XTEMF A GET ENO FTR 
OE1A ES 00 LOA BR O#x GET TERMINATOR 
OE1C Ci 2C CMF KR #%y» CHECK INDEXED 
OELE 36 FSH A 
OE1F 07 TRA 
OE20 DE 73 LUX XTEMPS 
OE22 IF 4B STX XTEMF 1 
OE2Z4 33 FUL 
OE25 06 TAF RESET CCR 
OE246 27 10 REQ NQOIE 
OE28 Sh TST & 
OE2L9 26 OL BNE NOIR IF NO FIND ALL»s NO DTRECT 
OE2R [6 7B LOA BR QTEMF GET MS BYTE 
OE2T 26 69 BNE NUTR 
OE2F BE On 39 JSR TFIXME 
OES2 24 SO BNE FIXXX 
OE34 94 7C LOA A QTEMF +1 
OE36 20 2F BRA IMMETI2 
OE38 06 7E NOIK LUA B OFPCODE 
OEZA CBR 10 Ann B #410 
OESC 7 7E STA B OPCODE 
OESE 39 RTS FASS ON 
* 
*xX IMME 
* CHECK FOR IMMEDIATE ADDRESSING 
OESF DIE 4B IMMETD L. DIX XTEMF IL GET OFERAND FTR 
OE41 AS 00 LOA A Oryx 
OE 43 81 23 CMF A #°# CHECK FOR # 
OE4S 27 07 BEQ IMMEDI IF SOv IMMEDIATE 
OE47 lid 7E IMMEDO LIA B OPCODE 
OE 49 CH 10 Ann B #410 
OE4R It7 7E STA B OFCODE 
OE4h 39 RTS 
OE4E O08 IMMEDI INX 
OE4F TIF 6K STX XTEMP IL MOVE FAST # 
OES 06 7E LOA BRB OFCODE 
OES3 C4 OF AND BR €4F 
OESS Ci OB CMF RK #€$8 
OES? 22°19 BHI IMMEDS 
OES9 BO Ol SY JSR TRIXMD 
OESC 26 26 BNE FIXXX 
ORSE 96 8F LOA A FASS 
OE46O 27 07 REQ IMMED4 IF FASS1» SKIP 


OE62 BD 11 0S JSR EVAL GO EVALUATE OPERANT! 


TSC 46800 


LOCN 
OE6S 
OE 67 
OE 69 
OE6C 
OESE 
0E70 
OE71 
0E73 
OE7S 
0E79 
_OE78 
OE7L 
OE80 
OE B82 
OE 84 
OE8S 
OE8S 


OE8?7 
OE89 
OES 
OESh 
OESF 
OE92 
OE9S 
0E97 
OES? 
OE9EB 
CEST 
QESF 
OEAL 
OEAS 
OEA4 
OEAG 
OEA8 
OEA9 
OEAR 
OEAL 
OE AF 
OERL 
OERS 
OERBS 
OERS 
OEBA 
OERR 
OERN 
OERE 
OECO 
OEC2 
OEC4 
OECS 
OEC? 
OEC9 


Bl 
96 
97 
BI 
20 
96 
4A 
2B 
7E 
BI 
94 
27 
BI 
DE 
DF 
31 
Si 
39 


De 
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R2 
7C 
7F 
oc 
14 
AR 


03 
oh 


= 02 


B3 


7E 


QS 
00 


84 


oe 


IMMED2 
IMMED4 
IMMEDS 


IMMEDS 
IMMEDS 


FIXXX 


x 


xk TYPES 


x 
TYPES 


TYPESA 


TYFESB 


TYPESE 


LOA 
STA 
LIX 
STX 
JSR 
Lox 
STX 
LOA 
REQ 
Lx 
LIA 
CMF 
ENE 
INX 
LIA 
LIA 
INX 
CMF 
BNE 
STA 
LA 
STA 
STX 
JSR 
LIX 
NEC 
BNE 
RTS 
STA 
LOA 
STA 
LIA 
INX 
STX 
TST 


>> 


tD>pDp 
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QTEMF +1 GET LS RESULT 
OF 1 SET BYTE 2 
ALLFC2 
FIXXX 
MODIFY 
IMMEDS 
TYPE7C 
ALDFCS 
FASS 
FIXXX CHECK FASS COUNT 
EVAL GO EVALUATE 
QTEMP GET ARG 
OF 1 SET OF ERANTS 
#$FF 
ERRFLG SUFFRESS ERROR REPORT 
OF NF TR 
XTEMFPS SAVE START 
EVAL GO EVALUATE EXFR 
#BRYTSTK 
BRYTFTR SET UF FOINTER 
QTEMP+1 GET RESULT 
TYFESF IF ZERO,» DELIM TYFE 
XTEMF 1 
OrXxX 
#ey 
TYPESF IF NOT COMMA» DELIM TYPE 
MOVE FAST » 
QTEMF +1 GET TATA 
O»X GET NEXT CHAR 
#$0 CHECK FOR CR 
TYFE8A 
FCCFLG 
#$20 GET SFACE 
OF CONE STORE FIRST BYTE 
XTEMP4 SAVE FTR 
ALEC 1 KICK FC 
XTEMF'4 GET PTR BACK 
SEE IF GONE 
TYFESEB 
QATFLG SET FLAG 
#1 
RYTCNT SAVE BYTE COUNT 
OrX GET CHAR 
KICK FTR 
XTEMF 4 SAVE 
FCCFLG CHECK FLAG 
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LOCN 
OECE 
OECE 
OETO 
OEN2 
OET4 
OES 
OES 
OELIA 
OEE 
OEnLI 
OEEO 
QOEE2 
OEES 
OEE? 
OEE? 
OEER 
OEE 
OEFO 


OEF 1 
OEF3 
OEFS 
OEFSG 
OEFS 
OEFA 
OEFC 
OEFF 
OF OL 
OF O03 
OF OS 
OF 06 
OF O08 
OF OA 
OF OC 
OF On 
OF OF 
OF 10 
OF 12 
OF 14 
OF 15 
OF 17 
OF 19 
OF 1E 
OF 1T 
OF LE 
OF 20 
OF 23 
OF 25 
OF 28 
OF 2A 
OF 2C 
OF 2F 
OF S1 
OF 33 


Ri 
26 
Ci 
26 
97 
C4 
LE 
E7 
08 
LiF 
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R2 
06 
ol 
04 
SB 
20 
87 
00 


00 
7E 
71. 
oc 
71 
O1 
vA 
O1 
Aé 


00 


BS 


B46 


Bé 


00 


BS 


56 


TYFESE 
TYPFES8C 


xX 
TYPESF 


TYFES8G 


TYPES8H 


TYFESTI 


BNE 
CMF 
BNE 
STA 
LIA 
LIX 
STA 
INX 
STX 
JSR 
LItX 
DEC 
ENE 
LIA 
STA 
STA 
CLE 
RTS 


L.DIX 
LOA 
INX 
LOA 
STA 
STX 
JSR 
LEX 
CMF 
BNE 
RTS 
STA 
LIA 
STA 
INX 
LIA 
INX 
STX 
LIX 
CRA 
REQ 
CMF 
REQ 
STA 
INX 
STX 
CFX 
REQ 
ASK 
L. LIX 
RRA 
CLR 
LA 
STA 


RTS 


> DD ms 


FAGE 41 


TYFESD 

#60) CHECK CR 

TYFESC 

FCCFLG 

#$20 

BYTFTR GET STACK FTR 

OrxX FUT ON STACK 

BYTFTR SAVE NEXT FOSITION 

ANGEC1 

XTEMF4 RETRIEVE FTR 

DATFLG COUNT OFF 

TYPESE LOOF TILL DONE 

#1 

OP CNT CORRECT OF COUNT 

DATFLG SET FLAG 

ERRFLG CLEAR ERROR SUPFRESS 
NONE 

XTEMPS GET START POINTER 

OrXxX GET DELIMITER 
MOVE FAST 

Orx GET CHAR 

OPCODE FUT AWAY 

XTEMF4 

ALEC RICK FC 

XTEMFP4 

1X CHECK ENT! 

TYPE8G 

DATFLG SET FLAG 

#1 

BYTCNT SET COUNT 
MOVE POINTER 

O»X GET CHAR 

XTEMF4 SAVE FTR 

RYTETR GET STACK FTR 
CHECK ENT 

TYFESI IF SOv QUIT 

#$0i CHECK FOR CR 

TYFESI IF SQOyv QUIT 

O»X FUT ON STACK 

BYTFTR SAVE NEW POSITION 

#BYTSTRE256 

TYFESJ 

ALEC 

XTEMF4 GET SOURCE PTR BACK 

TYFESH LOOF TILL DONE 

ERRFLG RESET ERROR SUPPRESSION 

#14 

OFCNT SET COUNT 


NONE 
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LOCN 
OF 34 
OF 36 


OF 38: 


OF 3A 
OF 3I 
OF 3F 


OF 7E 
OF BL 
OF 83 
OF 86 
OF 88 
OF SA 
OF ST 
OF 8F 
OFFI 
OF 9S 
OF 9S 
OF97 


Bi 
SP 8 
20 
Br 
7F 
84 
7E 


CE 
DF 
BE 
LE 
LF 
BEI 
DE 
AS 
81 
27 
81 
27 


: OR 


ASSEMBLER SYSTEM V1.4 
BR2 BS 
63 TYFESK ESK 
02 BRA 
F2 TYFESJ ESR 
00 56 TYFESL CLR 
OB LIA A 
07 ES JME 
x 
x 
xk TYFE? 
* HANDLES TYFE 
02 00 TYPE? LIX 
87 STX 
OR F2 ASR 
70 LOA A 
7E- STA A 
oC 86 TYFE9SC JSR 
L.0xX 
00 LOA A 
Olt CMF A 
04 REQ 
20 CMP OA 
OS REQ 
O1 TYFE9O LOA A 
90 STA A 
RTS 
SA TYFE9A STA A 
O1 LIA A 
ASG STA A 
TYFE9E INX 
SB STX 
OR F2 ASR 
87 LOX 
7C LOA #é 
00 STA A 
INX 
87 STX 
03 00 CPX 
RC REQ 
ro RRA 
x 
x 
xX TYPELO 
x EVALUATE 
02 00 TYFELO LIx 
87 STX 
OB F2 ASR 
78 LUX 
7E. STX 
oc 7E TYFLOA JSR 
6K L.TIX 
00 LUA A 
on CMF A 
04 BEQ 
2c CM A 
08 BEQ 


FAGE 42 


TYFLOC 
TYPEBL 
TYPESI 
ERRELG 
#11 

ASMERR 


RESET FLAG 
SET ERROR 


9 INSTRUCTIONS 


#EYTSTK 
BYTFETR SET UF STACK 
FEVAL. GO EVALUATE 
QTEMP+1 GET DATA 
OP COKE FUT AWAY 
ANTEC 1 KICK FC 
XTEMFL GET SOURCE FTR 
OX 
#$Tt CHECK DONE 
TYPES 
#iy 
TYFESA 
#1 
OFCNT CORRECT COUNT 
QNATFLG SET 
#1 
RY TCNT SET COUNT 

MOVE TO NEXT ARGUMENT 
XTEMF 1 SAVE FTR 
FPEVAL GO CRUNCH 
BRYTETR GET STACK 
QTEMP +1 GET DATA 
OX SAVE IT 
BRYTFTR UFTIATE AND SAVE 
#BYTSTKH+256 
TYFE8J 
TYPE9SC 


TYPE 10 INSTRUCTION 


#ERYTSTK 

BYTFTR SET UF STACK 
FEVAL GO EVALUATE 
QTEMF 

OF COTE FUT TATA 
ANMEC? KICK FC 
XTEMF 4 GET TERM FTR 
OX GET TERM 

#ST CHECK CR 

TYF LOC 

i y 

TYF LOR 
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LOCN 
OF 99 
OF 9R 
OFS 
OF SE 
OF AO 
OFA2 
OFA4 
OF AS 
OF A7 
OF AA 
OFAC 
OF AE 
OF BO 
OF B2 
OF R4 
OFBS 
OF BS 
OF BS 
OF BE 


OF RE 
OF CO 
OFC2 
OFC4 
OFCS 
OFC8 
OFCA 
OFCC 
OFCE 
OF TIO 
OFT 
OFNIS 
OF D7 
OFLY 
OF RC 
OF TIE 
OFEO 
OFE1 
OFES 
OFES 
OFE? 


OFEA 


OFET 
OF FO 
OFF 2 
OFF 4 
OFFS 
OFFS 


B1 
84 
97 
39 
97 
84 
97 
08 
NF 
Br 
DE 
96 
A7 
96 
A7 
o8 
08 
DF 
BC 
20 


7F. 


9 
27 
96 
27 
96 
26 
96 
27 
Bt 
Lié 
26 
Cé 
BI 
96 
26 
SA 
26 
7F 
7F 
39 


7E 


ASSEMBLER 


87 
Ch 


00 
8F 
25 
ort 
21 
4F 
1E 
AE 
19? 
11 
7C 
02 
OL 
07 
SC 


03 


Fé 


00 & 


10 


° OO 


SF 
FS 
4F 
F2 
6 
02 
70 
00 
O1 


. 10 


F2 


00 


wo? 


BA 


41 


TYF10C 


TYF10B 


x 
TYPELI 


TYFLI1A 


TYF 11 


TYPLIC 
x 
TYPERR 
x 
TYFPEL2 


TYF 120 


LWA 
STA 
RTS 
STA 
LIA 
STA 
INX 
STX 
JSR 
LUX 
LOA 
STA 
LOA 
STA 
INX 
INX 
STX 
CFX 
BRA 


CLE 
LIA 
BEQ 
LOA 
REQ 
LOA 
BNE 
LOA 
BEQ 
JSR 
LIA 
BNE 
LOA 
ISK 
LOA 
ENE 
DEC 
BNE 
CLA 
CLA 
RTS 


SMF 


CLE 
LIA 
BNE. 
LOA 
BNE 
L.YX 
L.A 
STA 
LOA 
LOA 
LUX 


SYSTEM V1.4 


>>P>D 


>DDD 


k 


FAGE 43 


#2 
OFCNT CORRECT COUNT 


QATFLG SET MULT DATA FLAG 


#2 
BYTCAT SET COUNT 

MOVE FAST TERM 
XTEMF 1 SET NEW INDEX 
FPEVAL. GO EVALUATE NEXT 
BYTFTR GET FOINTER 
QTEMF 
Ox 
QTEMF +1 
LyX 


FUT DATA AND AlJUST 
BYTFTR SAVE FTR 
FBRYTSTKRHE256 


TYP LOA LOOF TILL DONE 

FCFLAG TURN FC OFF 

FASS 

TYP11C IF FASS 1 IGNORE 

FPS3FLG 

TYF11C 

LABEL 

TYPERR 

LIST SEE IF List ON 

TYPLAIC IF NOTs IGNORE 

EVAL CRUNCH IT 

QTEMFP +1 GET COUNT 

TYFI11A 

#1 SET 1 LINE 

FCRLF NO LF 

EJFLG SEE IF EJECTED 

TYF11B IF SO»v QUIT 
COUNT OFF 

TYFL1A LOOF TILL TONE 

EJFLG RESET FLAG 

FRTFLG DON’T FRINT 
DONE 

TYF ISA 

PCFLAG 

FASS 

TYF LIC 

LABEL 

TYPERR 

XTEMP IL GET ARG POINTER 

rx 

TEMF SAVE 

OX 

lyx GET SWITCH ID 


#OFTLST FOINT TO LIST 
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LOCN 
10035 
1007 
1009 
100A 
100K 
100C 
100L 
LOOE 
1OOF 
1012 
1014 
1016 
1019 
1018 
1010 
1OLE 
1020 
1022 
1023 
1025 
1027 
1029 
1028 
1020 
102F 
1030 
1032 
1034 
1036 
1038 
103A 
103C 


1O3E° & 


1040 


1041 
1042 
1043 
1044 
1045 
1047 
1048 
1049 
104A 
1048 
1041 
104E 
104F 
10350 
1051 
10353 
1054 
1055 
1056 
1057 


Bl 
Al 
27 


27 
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B2 BS 


00 
10 


10 
Fi. 
OA 
07 
O01 
EC 


7M 
02 


E4 
03 
04 
00 
6B 
00 


65 
on 
0A 
06 
2C 
BA 
Et 


AE 


AE 


B2 


Re 


89 


ES 


TYF12A 


TYPL2C 


TYFI2K 


FNDEND 


OF TION 
x 
OF TLST 


CMF 
REQ 
INX 
INX 
INX 
INX 
INX 
INX 
CFX 
BNE 
LDA 
AMP 
CMF 
ENE 
FSH 
LIA 
CMF 
PUL. 
BNE 
LIA 
LIX 
STA 
LIX 
LIA 
INX 
STX 
CMF 
REQ 
CMF 
REQ 
CMF 
REQ 
BRA 


RTS 


FCC 


FCE 
FORE 
FCC 


FC 
FOR 
FCC 


FCB 
FI 
FCC 


FCE 
FIIE 


A 


b DPPD xs Dd 


> 


OrX 
TYFI2E 


#OPNENDHS 
TYFL2A 
#10 
ASMERR 
1X 
TYFL2C 


TEMF 


a2yX 


TYFP12C 
3X 
4X 
O»X 
XTEMP 1 
Ox 


XTEMF 1 
#60 

OF TOON 
E 

OF TION 
#’y 
TYF 120 
FNDEND 


LIS’ 


$FF 
LIST 
“NOL. ’ 


LIST 
‘TAP’ 


$FF 
TAPE 
‘NOT’ 


TAPE 
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SEE IF MATCH 


ADVANCE FTR 
SEE IF TABLE END 
LOOF 


SET ERROR NUMBER AND REFORT 
SEE IF SECOND MATCH 
IF NOTy GO BACK 


GET 3RDI CHAR 
SEE IF MATCH 


IF NOT» LOOF 
GET DATA 

GET ADDRESS 
SET SWITCH 


NONE 
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LOCN B1 B2 BS 


1059 40 FCC “MEM ’ 
105A 45 
1058 40 
10SC FF FCE $FF 
1050 00 B3 FOB MEMORY 
10SF 4E FCC ‘NOM’ 
10460 4F 
1061 40 
1062 00 FCE 0 
1063 00 BS FOR MEMORY 
1065 33 FCC ‘SYM’ 
1044 59 
1067 40 
1068 FF FCE $FF 
1069 00 AF FIV SYMBOL. 
1O6B 4E FCC “NOS “ 
106C 4F 
1060 S3 
106E 00 FCR 0 
106F 00 AF FOB SYMBOL. 
1071 47 FCC ‘GEN’ 
1072 45 
1073 4E 
1074 FF FCR $FF 
1075 00 BO Fug GENER 
1077 4E FCC “NOG ¢ 
1078 4F 
1079 47 
107A 00 FCER 0 
107B 00 BO FOR GENER 
1070 30 FCC ‘FAG’ 
107E 41 
1O7F 47 
1080 FF FCR $FF 
1081 00 Bl FE FAGER 
1083 4E OPNEND FCC “NOF ’ 
1084 4F 
1085 So 
1086 00 FCR 0 
1087 00 El FOE FAGER 
x 
x 
1089 7F 00 S9 TYFEI3 CLR FCFLAG 
108C 96 8F LUA A FASS 
108E 27 11 BEQ TYF13A 
1090 96 4F LOA A LABEL 
1092 26 20 BNE TYF ISA 
1094 97 SE STA A FRTFLG 
1094 96 Bl LOA A PAGER SEE IF FAGER ON 
1098 27 07 BER TYF13A IF NOTy IGNORE 
LO9A 96 AE LIA A LIST SEE IF LIST ON 
109C 27 O83 BEQ TYPISA IF NOT» IGNORE 
109E 7F 00 SF CLR PAGFLG 
1OA1 39 TYPI3SA RTS 


* 
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LOCN 
10A2 
10A4 
1OAG 
10A9 
10AB 
1OAB 
LOAF 


LORO 
10R2 
1LOBR4 
1LOBR6 
10B9 
1LOBC 
LOBE 
LOCO 
10C1 
10C3 
10C6 
10C9 
10CE 
10Cc0 
LOCF 
10D1 
10013 
10ns 
1007 
10118 
1OLA 


10rgn 
LOEO 
1OE2 
10E4 
1OE6 
10E8 


10E9 
10EC 
1OEE 


Bl 
96 
26 
BI 
De 
LF 
LF 
39 


96 
26 
86 
7E 
BI 
OF 
96 
4A 
97 


BI , 


7F 
Te 
96 
lid 
E7 
A? 
DE 
LiF 
39 
96 
7E 
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00 
4F 
Lo 
FF 
58 


00 


4F 
CO 
00 


° 65 


96 


on 
OF 


96 
65 
00 


65 
00 


nS 


DS 


36 


a9 


Cé 


E64 


TYPEL4 


x 
TYPES 


TYP ISA 


EQUI. 


TYF ASC 


x 
TYFEI6G 


TYPEL7 


NAM1L 


LIA 
BNE: 
JSR 
L.TIX 
STX 
STX 
RTS 


LA 
ENE 
LIA 
SMP 
JSR 
STX 
LA 
NEC 
STA 
JSR 
CLR 
L.UIX 
LIV 
Lia 
STA 
STA 
L.Yx 
STX 
RTS 
LOA 
AMF 


CLR 
LA 
BNE. 
LIA 
STA 
RTS 


CLR 
LIA 
REQ 
LIA 
BNE. 
LUX 
STX 
LYix 
LIA 
CMP 
REQ 
INX 
STX 
L.LIX 
STA 
INX 
STX 
CFX 


A 


>DP> 


>t aD 
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LABEL. 

TYFISA 

EVAL GO EVALUATE OPERANT 
QTEMF GET RESULT 

FC SET FC 

XTEMP2 


LABEL. 

EQUI 

#7 SET ERROR 
ASMERR 

FNDLEBL FING LABEL 
$F TD 

FASS CHECK FASS 


ERRFIG 

EVAL. G0 EVALUATE 
ERRFLG 

$F 

QTEMF +1 

QTEMF 

bX 

7X 

QTEMF 

XTEMP2 


LSTERR ELSE ERROR 
ASMERR GO REFORT 


PCFLAG 
LABEL. 
TYFISA 
#$FF 
ENDFLG 


FCFLAG 

FASS 

NAMS IF FASS? IGNORE 
LABEL 

TYP LSA 

#TITLE 

XSAVE SAVE FTR 

OF NF TR GET FOINTER 
O»rX 

#40) CHECK FOR CR 
NAM2 

GET TO NEXT 

OFNFE TR 

XSAVE GET OTHER FTR 
OrX 


XSAVE UPDATE 
¥TITLE+32 
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LOCN 
110E 
1110 
1ile2 
1114 
1117 
1119 
1118 
111ic 
ITIE 


111F 
1122 
1125 
1127 
1129 
112C 
1126 
1130 


1131 
1132 
1134 
1136 
1139 
113C 
, 1130 
L13E 
1140 
1142 
1144 
1146 
1149 
114A 
114C 
1L14F 
1152 
1155 
1158 
115A 
115¢C 
1150 
1iSF 
1161 
1143 
11464 
1166 
1168 
L16A 
116C 
L16E 
1ié6F 
1171 
1173 
1174 


Ri 
26 
86 
DE 
8C 
27 
A? 
08 
20 
39 


Bn 
CE 
06 
96 
RD 
De 
DF 
39 


37 


ASSEMBLER SYSTEM V1.4 
BR2 83 
Eg BNE 
20 NAM2 LIA A 
63 Lx 
OO E& FILTIT CrX 
OS REQ 
00 STA A 
INX 
Fé BRA 
NAMS3 RTS 
x 
11 0S TYFE18 JSR 
OO 7E LIX 
4C LUA & 
48 LIA A 
oc FA ISK 
7B LOX 
4B STX 
RTS 
x 
xk EJECT 
EJECT FSH E 
Ri LOA B 
65 REQ 
11 fl Lx 
07 ARB JSR 
FSH B 
CLE A 
Ag STA A 
Ki STA A 
03 LIA & 
06 REQ 
O7 BA FRTMAR JSR 
TEC & 
FA BNE 
00 C& MARDON LIX 
07 AR JSR 
11 A? Lux 
O7 AB JSR 
An LIA A 
O1 Ann A 
LiAA 
Al STA A 
AC LIA A 
00 anc A 
TAA 
AC STA A 
oc REQ 
FO ANT A 
03 BEQ 
2F BES 
INC B 
AC FFAGS LOA A 
30 RSR 
INC B 
Al FFAG2 LOA A 


FAGE 47 


NAMI 

#420 
XSAVE 
#TITLE+32 
NAMS 

OX 


FILTIT 


EVAL 
#QTEMF 
FC+1 
FC 
ADDLS 
QTEMF 
FC 


PAGER SEE IF FAGE ON 

NOEJT IF NOT: SKIF 

#EJSTR POINT TO EJECT STRING 
FOATA PRINT THE CHARS 


LINCNT 

FAGER TURN FAGER OFF 
#3 

MARLON 

FCRLF 


FRTMAR PRINT MARGIN 
#TITLe 

FATA SET IN TITLE 
$F RF 

FDOATA FRINT HEADER 
FAGENO+1 

#1 KICK FAGE COUNT 


FAGENOt1 
FAGENO 
#0 


FAGENO 
PRPAG2 
#$F 0 
FFAGS 
OUTHL FRINT MS 
SET FLAG 
FAGENO GET BYTE 
QUTHR FRINT LS OF MS 


FAGENO+1] GET LS BYTE 
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LOCN 
1176 
1178 
1179 
1178 
1170) 
117F 
1181 
1183 
1185 
1198 
1188 
1180 
118F 
1191 
1192 
1194 
1195 
1194 
1197 
1199 
1198 
119C 
1190 
11A0 
11A3 
11A6 


LIAY : 
11AA : 
11AB : 


11AC 
LiAn 
11AE 
LAF 


LLRO : 
Liki & 


112 
113 
1184 
1185 
Lik6 
1187 
L1iB8 
L1k9 
LIBA 
L1IBE 
118C 
Lisbn 
LIBRE 
LIBF 
11Co0 
11C1 
11C2 
1103 
L1ic4 
L105 


Bi. 
27 
ol 
26 
85 
27 
Bn 
96 
Br 


53 
53 
45 
4n 
42 
4c 
4s 
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B2 RS 
1E REQ 
TST B 
04 BNE 
FO BIT A 
04 REQ 
1c FPFAGS ESR 
AL LIA A 
1E FFAG BSR 
O07 BA JSR 
07 KA JSR 
FF LIA A 
SC STA A 
oF STA A 
FUL ER 
Rl STA B 
FUL 
RTS 
FFAGS TST B 
EG BNE 
E8 BRA 
NOE JT FUL 
RTS 
oc TR OUTHL ISK 
03 20 JMF 
oc DF QOUTHR JSR 
03 20 JMF 
FFF FCC 
FCC 


FFAGS 


FFAGS 
#$F0 
FFAG4 
OUTHL 
FAGENOt1 
OUTHR 
PCRLF 
FCRLF 
#$FF 
EJFLG 
FAGFLG 


FAGER 


FFAGS 
FRAG4 


HEXI. 
DUTCH 
HEXR 
OQUTCH 


‘TSC MNEMONIC 


FAGE 48 


SEE IF PRINTED YET 
IF SOy JUST PRINT 
CHECK MS DIGIT 

IF O» DON’T PRINT 
FRINT 


GET PAGE STATUS 
RESTORE 


DONE 
CHECK IF PRINTED 


DONE 


ASSEMBLER PAGE “ 
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LOCN B1 B2 BS 


1106 S2 
1107 20 
11C8 20 
L1C9 20 
LICA 20 
1iCB 50 
11C€ 41 
11Cn 47 
ICE 45 
LiCF 20 
1100 04 FCE 4 
111 00 EJISTR FCR Or0r$Ax24 
1102 00 
1103 OA 
1104 04 
x 
xk EVAL 
x EVALUATE AN OPERANT EXFRESSION 
1105 4F EVAL CLR A 
1106 97 78 STA A QTEMF 
1108 97 7C STA A QTEMFt1 
LILA 97 63 STA A OFN INITIALIZE 
110C DE 6B L.Dix XTEMF IL 
TLE OF 96 STX OFNFETR SET FOINTER 
L11EO TE 94 EVALIA LIX OFNF TR GET OFERAND FTR 
L1IE2 A& 00 FINISC LIA A O»xXx GET CHAR 
11E4 08 INX 
LIES SF CLR EB 
11iE46 81 2k CMF A #’%+ 
LIES 27 27 REQ Fi 
L1IEA SC INC B 
LIEB 81 20 CMF A ¥’- 
LIE 27 22 REQ Fi 
LIEF SC INC & 
11FO 81 2A CMF A #¥°X 
11F2 26 OA BNE FINIS4 
L1F4 O09 nex 
L1FS 9C 94 CFX OPNFTR 
1iF7 07 TFA 
11F8 08 INX 
L1F9 06 TAF 
1iFA 27 ES REQ FINISC 
11FC 20 13 BRA Fi 
LIFE SC FINNS4 INC & 
11iFF 81 2F CMF A #’7 
1201 27 OE REQ Fi 
1203 Cé& FF F2 LUA B #$FF 
1205 81 20 CMF A #7’ 
1207 27 08 REQ Ft 
1209 81 2C CMF A #’%ys 
120K 27 04 REQ Fi 
1200 81 OL CMF A #$Il 
120F 26 ft ENE FINESC 
1211 07 64 Fi STA BK TERM SAVE TERMINATOR 


1213 09 TEX ADJUST 
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LOCN 
1214 
1216 
1218 
121k 
12in 
1L21F 
1224 
1223 
1225 
1227 
122A 
L22C 
122F 
1232 
1234 
1236 
1238 
1239 
1238 
1230 
1240 
1242 
1244 
1246 
1247 
1249 
1248 
124C 
124E 
1250 
1251 
1253 
1255 
1257 
1258 
1258 
iaee 
SE 
ee 
1262 
1264 
1246 
1267 
1269 
1268 
126C 
126E 
1270 
1271 
1273 
1275 
1276 
1278 
1279 
12758 


B1 
DF 
DE 
7F 
Aé 
81 


cae k= 
25 


81 


“yey 
Be Keo 


DF 7 


Bit 
he 
Bri 
BI! 
EE 
LF 
Ne 
4i 


2A. 


7E 
Cé 
B1 


vA 


“9 
vA 
81 


vA 
nN? 
20 
08 
CF 
4F 
97 
97 
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BR2 3 
&E 


00 7I 


12 98 


27 
20 
6 


QO 7I 


42 
on 


48 
08 


7 


96 


79 
7A 


LOA! 


LOATAL 


Ld 


STX 
LIX 
CLR 

LWA 
CMF 
RCS 
CMF 
BHI 
STX 
JSR 
LIX 
JSR 
JSR 
LUX 
STX 
L.I1X 
TST 
BFL 
LIA 
JME 
LIA 
CMF 
BEQ 
INC 
CMF 
REQ 
INC 
CMF 
BEQ 
INC 
CMF 
REQ 
LIX 
TEX 
INC 
DEC 
LOA 
CMF 
REQ 


BEQ 
NEC 
CMF 
BEQ 
NEC 
CMF 
REQ 
NEC 
STA 
ERA 


SYSTEM V1.4 


D> & > >D 


k 
& 


>> > 


XTEMF 1 
OPNF TR 
TEMF 
O»X 
#°R 
LOAD 
#°Z 
LOAD 
QTEMF2 
CLRLAB 
QTEMF2 
COFLEL. 
FNDLBL 
bX 
QTEMF2 
XTEMF IL 


Lo 
#1. 
FS 


#427 
Lt 
XTEMF 2 


TEMF 


OyX 
#/°0 
L.2 
#°Q 
L2 


ER 
L.2 


¥°H 
L2 


TEMF 
L2 


OFNFTR 


QTEMP2 
QTEMP 241 


FAGE S50 


GET CHARACTER 


CHECK FOR LABEL 
SAVE X 

SET LABEL TO ZERO 
GET X BACK 

GO GET VALUE 

GET VALUE 

STORE IT 


SEE IF FOUND 


SET In 
CHECK FOR BASE TAGS 


PERCENT 


CHECK FOR SINGLE QUOTE 
GET END POINTER 

MOVE TO LAST CHAR 

GET IT 

CHECK OCTAL 


CHECK OCTAL 


CHECK BINARY 


CHECK HEX 


SET BECITMAL 


MOVE TO FIRST CHAR OF CONST 
SAVE 
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LOCN Bi 
1270) CE 
1280 58 
1281 27 
1283 08 
1284 SA 
1285 26 
1287 EE 
1289 Al 
128R 96 
1280 27 
128F 08 
1290 TIF 
1292 9C 
1294 27 
1296 86 
1298 7F 
1298 7F 
129E 7E 
12A1l 96 
12A3 CE 
12A6 48 
1T2A7 27 
12A9 08 
12AA 4A 
12AR 26 
12A0 EE 
12AF AD 
1281 UE 
1283 08 
1284 TF 
1284 94 
1288 97 
12RA 25 
12kC 7E 
12BF 4F 
L200 39 


1201 12 
1203 12 
1205 12 


1207 13 


1209 13 
12CK 13 
12Ch 13 
12CF 13 
1eni 13 


L203 
1205 
12Nn7 
120A 


96 
0é 
CE 
7E. 


L200 
L2nr 


96 
hé 


ASSEMBLER 


R2 
12 


04 


FC 
00 
00 
71 
Ol 


71 
6E 
OB 
09? 
00 
00 
07 


12 


04 


FC 
00 


6B 


96 
44 


03 
ti 


[3 
oa 


OF 


oH 
PA 
BA 
ho 
EE? 


79 
7A 
00 
Oc 


79 
7A 


B3 
Cc? 


7k 
7C 
ES 


C1 


EO 


7B 
FA 


1.3 


F3 


EVALIE 


EVAL2 


EVAL S 


EVAL 4 


x 
OFNTBL 


x 
BCONYV 


x 
OP ALT 


x 
OF SUE 


SYSTEM V1.4 


- oR 


A 


. A 


Rk 


#RCONV 


L4 


1.3 
O»X 
OrxX 
TEMF 
L.& 


XTEMF4 
XTEMF 1 
EVALIE 
#9 
QTEMF 
QTEMF +1 
ASMERER 
OFN 
#OFNTRL 


EVAL3 


EVAL2 
OrXxX 
OX 
XTEMP IL 


OF NF TR 
TERM 
OFN 
EVAL 4 
EVALILA 


OF ADT 
OF SUB 
OF MUL 
OFTTY 


NECM 
HEX 
BIN 
OCT 
ASC 


QTEMP2 
QTEMP2+1 
#QTEMP 
ALTIG 


QTEMP 2 
QTEMP 241. 


PAGE Sil 


FOINT TO TABLE 


GET TO ADDRESS 
GET ADDRESS 
COLLECT DATA 


CHECK FRE OR FOST 


SAVE 
SEE IF GOT ALL 


RESET ARG 
GO TO ERROR 
GET OPERATION 


FOINT TO JUMP TABLE 


POINT NEXT 


MOVE TO TARGET 
GET TARGET ATR. 
nO OPERATION 
GET POINTER 


SAVE PLACE 

GET LAST TERM 

SAVE OPERATION 

IF A TERMINATOR: DONE 

ELSE FROCESS AGAIN 
TONE 


GET OPERANT 
FOINT TO ACC. 
GO Ang 
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LOCN 
12E1 
12E4 


L2E7 
12EA 
12EC 
1L2EF 
L2F1 
12F3 
12F4 
12F6 
12F7 
12F9 
12FB 


12FE . 


12FF 
1301 
1303 
1305 


1307 S 


1308 
130A 
130C 
130E 


130OF 
1312 
1314 
1314 
1318 
131A 
131C 
LSLE 
1320 
1322 


1325 % 


13246 
1328 
132A 
L320 
132F 
L334 
1333 
1336 
1337 
1339 
1338 
1330 
133F 
1340 
1341 
1343 
1345 
1347 


ASSEMBLER 


R2 
00 


EOC 


E2 
02 
7B 


B3 
78 
ES 
00 


77 


FA 


00 


, ES 


x 
OF MUL. 


OFMUL 2 


OFMUL. 3 


k 
OF DIY 


ORTTYVA 


OPNIVS 


LOX 
JMF 


LX 
STX 
LIX 
LA 
LIA 
ROR 
RCC 
PSH 
LDA 
LOA 
JSR 
PUL 
LOR 
ROR 
ROR 
ROR 
DEC 
BNE 
L. [1X 
STX 
RTS 


LIX 
STX 
L.YIX 
LOA 
STA 
LOA 
STA 
STX 
LOA 
LIX 
FSH 
LWA 
Lad 
JSR 
BCS 
LOA 
LUA 
JSR 
CLC 
ROL. 
ROL. 
ROL 
ROL. 
FUL 
NEC 
BNE 
LEX 
STX 


RTS 


SYSTEM Vi.4 


R 
k 


i 


#QTEMF 
SUBR1S 


#O 
QTEMP 3 
#QTEMFPS 
#16 
3yX 


OF MUL 


4yX 
yx 


ALLS 


OvX 
Lyx 
mex 


Bex 


OF MUL2 
Dek 


QTEMF 


#0 
QTEMFS 
QTEMF2 
QTEMF +1 
QTEMP2+ 1 
QTEMF 
QTEMP2 
QTEMF 
#17 
#QTEMP 3 


QTEMF 
QTEMP +1 
SUBISG 
OF LLVS 
QTEMF 
QTEMF +1 
ANNLS 


3yX 
yx 
LyX 
OX 


OFDIV1I 
29X 


QTEMF 


ho 


PAGE 


ah 


SET ACCUM. 
SET COUNT 


CHECK BIT 


GET OPERANIS 
ALTi IN 


COUNT OFF 


GET RESULT 
SAVE 


INIT. ACCUM. 


MOVE OFERAND 
SET COUNT 
POINT TO ACC, 


Ann BACK 


SHIFT IT 
RETRIEVE COUNT 
COUNT OFF 

NO AGAIN 

GET RESULT 
SAVE 

NONE 
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LOCN 


1348 
134A 
134C 
134E 
1350 


1351 
1353 
1355 
1357 
1359 
135A 


1358 
1350 
135F 
1361 
1363 
1365 
1367 
13648 
134A 
134C 
136E 
1370 
1372 
1374 
1376 
1378 


137A < 


1378 
137C 
L37E 
1380 
1382 
1384 
1385 


1387 


1388 
138A 
138h 
1390 


13591 


1393 
1396 
1399 


L3PA 
L39C 
139E 
13A0 


7F 


BY 


B2 BS 


00 
3A 
02 
OA 


é6ti 
79? 
6E 
7A 


2B 
2A 
EE 
20 
79 


cay 


wad 
23 
7A 
7A 
79 
79 
19 


7A 


7A 
79 


96 


00 


00 


00 
00 


79 


7A 


7A 


INDEC 


INTEC? 
x 
SFPCL 


NECM 


NECM2 


DECMS 


x 
INITR 


L.TWO 


LONE 


HEX 
HEX2 


LI 
SUE 
BCC 
Ann 


RTS 


LIMA 
STA 
LDA 
STA 
INX 


RTS 


RSF 
Los 
CMF 
REQ 
BSR 
RCC 
FSH 
La 
LOA 
BSR 
RSK 
Ann 
STA 
Aguc 
STA 
ESR 
FUL. 
CLE 
Abt 
Ang 
STA 
STA 
INX 
BRA 
RTS 


K 


B 


>bDDDd>D 


B 


Dm Dm wm 


LOX 


CLR 
CLE 


RTS 


BSR 


ASL 
ROL 


RTS 


RSK 
LOA 
SUR 
BRL. 


A 


OrxX 
FSA 
INDEC2 
#£A 


XTEMF2 
QTEMP2 
XTEMP 241 
QTEMP2+4 


INITR 
OrxX 
#°x 
SFECL. 
INDEC 
QECMS 


QTEMP? 
QTEMP2+1 
LONE 
LONE 
QTEMFP24+1 
QTEMP2+1 
QTEMF2 
QTEMF2 
LONE 


QTEMP2+1 
QTEMP2 
QTEMF2+1 
QTEMP2 


DECM2 


OFNETR 
QTEMF2 
QTEMP2+1 


LONE 


QTEMF2+1 
QTEMF2 


INITR 
OyX 
4/6 
HEX4 


FAGE 533 


GET A CHAR 
REMOVE BIAS 


CORRECT 


ALIGN POINTER 


GO INITIALIZE 


CHECK SFECTAL CHAR 


GO FETCH 


LEFT ONE 
AGAIN 


Ang IN 


LEFT AGAIN 


GO AT IT AGAIN 


GET FOINTER 


ZERO ACCUMULATOR 


LEFT ONE 


INITIALIZE 
GET CHAR 
REMOVE BIAS 
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LOCN Bil B2 RS | 

13A2 8B 06 ALT A #4 AnD ON 

13A4 2A 04 RF L. HEX3 

13A46 8B 07 ALO A #? ALD AGAIN 
13A8 2A OF BFL HEX4 REMOVE $3A ~- $40 
13AA BE OA HEX3 An A #10 CORRECT 
13AC 2B OR BMI HEX4 REMOVE <$30 
13AE 80 EL RSE LTWO 

13RO 8 LIF BSR L.TWO 

13B2 9R 7A Ann QTEMP2¢1 

1384 97 7A STA QTEMP 241 

13B6 08 INX 

1387 20 ES BRA HEX2 

L3E9 39 HEX4 RTS 


> D 


13RA 8 CC BIN RSE INITR 
L3RC AG 00 BIN2 LOA A Ox 
I3BE 80 30 SUB A #430 
13C0 2B F? RMI HEX4 
1302 81 O1 CMF A #1 
13C4 22 F3 BHI HEX 4 
1306 46 ROR A 

13C7 79 00 7A ROL QTEMP2+1 
13CA 79 00 79 ROL QTEMFS 
13Cn 08 | TNX 

13CE 20 EC BRA BINS 


13n0 80 B6é OCT BSR INITR 
1302 A6é 00 OCTI La Ok 
1304 80 30 SUB A #420 
1306 26 El RMI HEX4 
1308 81 07 CMF A #? 
13NA 22 00 BHI HEX4 
130nc 8h BS BSR LTWO 
130E 8h BS BSR LONE MULT X 8 
13E0 9B 7A Ann A QTEMP2+¢1 
13E2 97 7A STA A QTEMP2+1 
13E4 08 INX 
1SES 20 ERB BRA OCTL 
I3E7 Slt OF ASC BSR INITR GO INITIALIZE 
13E9 AS OO LOA A Ox GET CHAR 
ISEB 97 7A STA A QTEMFP2+1 SET CHAR 
IZED NE 6B LIX XTEMFL IGNORE REST 
ISEF 39 RTS LONE 
x 
* 
** SHELL 
x NO A SHELL SORT 
13FO 7F 00 70) SHELL CLR TEMF 
13F3 846 08 LOA A #8 
13FS 36 FSH A 
T3F6 B86 20 LIA A #32 
13F8 36 FSH A 
L3F9 84 68 LOA A #104 
L3FR 34 FSH A SET GAF WIDTHS 
13FC 32 SHELLI PUL A GET A GAP 


D> 
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LOCN 
13F 0 
L3FF 
1401 
1403 
1405 
1407 
1409 
1408 
140n 
140F 
1411 
1413 
14135 
1417 
1419 
14A1B 
1410 
14iF 
1421 
1423 
1425 
1427 
1429 
1428 
142C 
142E 
1430 
1432 
1434 
1436 
1438 
143A 
143 
1430 
1L43F 
1441 
1443 
1445 
1446 
1448 
144A 
144C 
144h 
144E 
144F 
1451 
1453 
1455 
1458 
145A 
143C 
14S5E 
1460 
1441 
1462 


Ril 
97 
ne 
[IF 
DF 
94 
9B 
97 
9S 
89 
97 
91 
25 
26 
9S 
91 
24 
C4 
TE 
TF 
LE 
TF 
QE 
AS 
08 
DF 
Te 
Al 
27 
23 
Cé 
Te 
TF 
37 
AG 
Te 
E 
A? 
08 
TF 
Ne 
EE 
08 
33 
uA 
26 
9S 
2d 


73 


Ne | 


9C 
27 
Cé 
09 
SA 
26 
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Re BS 
AA STA A 
40 LIX 
77 SHELL2 STX 
7k SETGAF STX 
7C LIA A 
AA Ann A 
7A STA A 
7B LIA A 
00 ane A 
7? STA A 
42 CMF A 
08 BCS 
60 BNE 
7A LIA A 
43 CMF A 
3A RCC 
06 SORT LIA B 
7% LX 
69 STX 
79? LIX 
60 STX 
é9 CHRLOF LOX 
00 LOA A 
INX 
69 STX 
60 Lx 
00 CMF A 
4f BEQ 
30 BLS 
08 LIA B 
7B LIX 
&9 MOVELF STX 
FSH E 
00 LOA A 
79 LYx 
00 LIA B 
00 STA A 
INX 
79 STX 
69 LIX 
00 STA EB 
INX 
FUL 
NEC B 
EY BNE 
70 LIA A 
03 BNE 
00 7 COM 
7B SHELLS Lox 
40 CrX 
O08 REQ 
08 LOA & 
THECXX NE X 
NEC B 
FC BNE 


GAF 
LBELEEG 
QTEMF3 
QTEMF 
QTEMF +1 
GAF 
QTEMF 241 
QTEMF 

#0 
QTEMF2 
LALEND 
SORT 
FASTION 
QTEMFP2+1 
LBLENTIA4 1 
FASTION 
#6 

QTEMF 
XTEMF 
QTEMP2 
XTEMF2 
XTEMF 
OyxX 


XTEMF 
XTEMFS 
O»X 
SAME 
ORTIOK 
#8 
QTEMP 
XTEMF 


Oyx 
QTEMF2 
O»X 
O»X 


QTEMF2 
XTEMF 
OyX 


MOVELF 
TEMF 
SHELLS 
TEMF 
QTEMF 
LBL BEG 
ORDOK 
#8 


NECXX 


he) 


PAGE 


SAVE 


SAVE FLACE 
SAVE FT 


SET BOTTOM FOINTER 


SET FOR 6 COMPARES 
GET TOF FTR 

SAVE 

GET BOTTOM FTR 
SAVE 

GET FTR 

GET CHAR ANI ADV, 
GET FTR 

CHECK RELATION 
SAME? 

IN ORDER? 

SET 9 TRANSFERS 
GET TABLE FTR 
SAVE 

SAVE COUNT 


GET DEST FTR 
SWITCH 


SAVE FTR 
GET DEST FTIR 
SWITCH 


LOOF TILL DONE 
GET FLAG 


CHANGE FLAG 
GET FTR 
SEE IF 
IF SO» 


AT TOF 
GO TOWN 


MOVE BACK 
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LOCN 
1464 
14466 
1468 
146A 
1460 
146F 
1471 
1472 
1473 
1475 
1477 
1479 
147K 
1470 
1480 
1481 
L482 
1484 
1485 
1487 


1489 
148K 
148fi 
1490 
L493 
L496 
1499 
149B 
1490) 
LAGVE 
14A0 
L4A2 


Laas % 


L4as 
14A8 
144A 
14AC 
14AE 
1480 
14k2 
1484 
1L4B6 
1489 
L4B9 
L4kC 


14Br : 


14BF 
L401 
1403 
1404 
14C7 


Ri 
20 
96 
27 
TF 
NE 
Cé 
O38 
oA 
26 
20 
96 
Sit 
2? 
FE 
BY 
O38 
ae 
SA 
26 
20 


ASSEMBLER 


Re 
OT 
7l 
03 


00 3 


77 
08 


FC 
SA 
AA 


‘08 


03 


13 


oli 


AQ 
ng 


62 
ac 


E O4 


04 
04 
00 
6 


PE 


4B 


° PE 


Os 
15 
90 
A? 
04 


él 


" AO 


89 
FE 
00 
00 
13 
IF 
00 


00 


RS 


FC 


CO 
Be 
C8 


&2 


18 


A? 


A? 


DRDOK 


SHELLS 


OF FLOF 


FASTION 


SRT DON 
SAME 


x 
x 


BRA 
LDA 
REQ 
CLR 
L.LIX 
LDA 
INX 
DEC 
BNE 
BRA 
Lt 
CMF 
REQ 
JME 
RTS 
INX 
STX 
HEC 
BNE 


BRA 


KK ORICON 
x PRODUCE MIRBUG RECORD FORMAT 


RICO 


OBICOL 


OBICO4 
OL ICOS 


OB ICOS 


LWA 
BEQ 
L.TEx 
ASK 
“VISE 
CLE 
LUX 
Cr 
TRA 
LEX 
STX 
TA 
REQ 
JSF 
LUA 


Loaf 


BNE 
LUX 
STX 
LEX 
La 
STA 
TNX 
INC 
NEC 
REQ 
Loa 
STA 
INX 
FNC 
NEC 
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i 


ik 


DD 


BR 


a 


BR 
Is 


R 
i 


A 


SETGAF 
TEME 
SHELLS 
TEME 
QTEMES 
#9 


OF FLOM 
SHELL2 
GA 
#9 
SRTTON 
SHELL 1 


XTEMPR 


CHELOF 
QR TOK 


OQBIINT 
OBICOL 
#TAPEON 
CONTR 
TELAY 
OB WINT 
XTEMFP 2 
LASTRC 


PC 


LASTEC 


ORICO4 
PRTREC 
OF CNT 
BUFOCNT 
OBICOS 
XTEMP2 
OB JATIR 
OBUE TER 
OF COE 
OyxX 
BUPUNT 
OR ICO 
OF 1. 
OrekX 


RUPUNT 


Ci 
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GET FLAG 

IF Of FOWART 

SET FOWART 

GET List FOINTER 
SET FOR NEXT 


MOVE FTR 


GET DISTANCE 


IF 8» DONE 


SAVE PTR 
CHECKED ALL 6? 





SEE IF FIRST CALL 
" SOe SRIF 


TURN TAFE ON 

DELAY FOR STARTUF 
RESET FLAG 

GET FC (LAST TIME’S) 





eT 





SEE IF NEW ORG 

IF SOs FRINT LAST PART 
GET BYTE COUNTER 

GET BUFFER COUNT 

IF NOT EMF TY» SRIF 

GET FC 

SET RECORD ALIRESS 

GET NEST FTR 


NG 
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71 
87 
34 
00 
71. 


00 


F8 
89 


A? 
FR 


00 
00 


SI 


03 
23 


re as 


ORICOS 


ORJICO?7 


CHKGEN 


GENOBJ 


SHIF TL. 
MOVE 


SAVEPL 
ORJTION 
FPRTREC 


RECORD 


& 
B 


A 


& 
k 


DDD 


OBJICOS 
OF? 
OyX 


BUFCNT 
CHKGEN 
DATFLG 
OBJTION 


#BYTSTK 


XTEMF4 
XTEMF4 
BYTFTR 
ORJDION 
Ox 


XTEMF4 
OBJFTR 
OX 


BUFCNT 
CHKGEN 
OBJCO? 
OBJFPTR 
BUFCNT 
#15 

GENOBJ 


#16 
RECORD 


#OBJIBUF 


#14 
BUFCNT 
SAVEFL 
1Lé+X 
OrX 


MOVE 
ORJFTR 


BUFCNT 
ORJDON 


BUFCNT 


#OBJBUF 


OBJFTR 
HEALER 


#3 
TAF BYT 
OBJADIR 
TAF RYT 


PAGE %S?7 


PUT DATAy SET COUNT 
GO CHECK IF RUF. FULL 
CHECK FCCyFCRy FOR 

IF NOTs NONE 


SET DATA BUFFER FOINTER 
GET DATA POINTER 

SEE IF EMPTY 

IF SO» TONE 

GET DATA 


FIX FTR 
GET FTR 

FUT DATA 

ALIVANCE 

FIX COUNT 

CHECK GENERATE TIME 
LOOF TILL EMPTY 
SAVE POINTER 

GET COUNT 


IF s=146 TIME TO FUNCH 


SAVE COUNT 
SET BYTE COUNT 
GO FUNCH RECORD 
GET COUNT 


CALCULATE DATA LEFT 
UPDATE COUNT 

IF O» HAVE PLACE 
GET DATA 


MOVE FTR 

KICK COUNT 

MOVE ALL DATA 

SAVE BUFFER FIR 

NONE 

GET COUNT 

IF Os NOTHING TO PUNCH 
SAVE COUNT 

SET COUNT 0 


RESET FOINTER 
FUNCH HEADER 


GET COUNT 
SET RYTE COUNT 
PUNCH BYTE 
GET MS ANDRESS 
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L.OCN 
1532 
1934 
1536 
1537 
1538 
153A 
153C 
LOSE 
1540 
1542 
1543 
1940 
1547 
1549 


164A § 
154k ¢ 


1547) 
1S4F 


1550 i 


15 
Bas 
15 Ss 
1556 
1557 
155A 
LSSn 
LSSE 
1561 


15644 
1567 
1549 
156C 
1S6F 
1570 
1574 
1572 
173 
1574 
L875 
13576 


1577 
1379 
1578 
LS7C 
LS7E 


Ri 
9& 
BN 
32 
36 
OR 
97 
96 
89 


33 


31 


DE 
9C 


fe: 
nF 
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B2 
At 
LA 


Al 
Al 
AQ 
00 
AO 


Bg 


00 
07 


Fe 
Gi 


61 
él 


Oc 
03 


ocr 


2 OS 


15 
08 
00 
04 


éf 
9C 


AR 


9C 


BS 


lik 
23 
TF 
235 


4l 
KS 


LA 
RSF 
PUL. 
FSH 
AL 
STA 
LTA 
ALC 
STeé 
FUL. 
LOX 

OB ILE LOA 
BSK 
INX 
TE 
RNE 
Lo 
COM 

x 

**k TAPRYT~ 


xX PUNCH & BY 


TAF BYT = PSH 
ADT 
STA 
PUL. 
FSH 
JSR 
ASE 
Ful. 
ASR 
JME 

x 

HEATER LIX 


LOA 


CLR 
MP 
L.NHYIX FOR 


FEC 


eK KM 


*K MEMCOD 


TE 
a 
a 
A 


A 
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OR ADR LT 
TAPBYT 


GET COUNT AGAIN 

OBRJADR+ 1 

ORIADR EL 

OB IADR 

#0 

Os JAD SET NEW ADRESS 
GET COUNT 

OBIE TR 

O»X GET DATA 

TAPBYT PUNCH IT 


CHECK TONE 
OB JLP 
CRSUM GET CHECKSUM 
CORRECT 


AND CALC CHECKSUM 

SAVE BYTE 
CRSUM UPDATE CHECKSUM 
CKSUM 


GET CHAR 
HEX. 
TAF OUT 


HE XEFE 
TAP QUT 


#LNHDX 

#8 

CREM SET CHECKSUM 
ROTEL GO FUNCH 

Ply FAvyOveOrO 


* INSTALL OBJECT CODE IN MEMORY 


MEMCOD Lyx 
CFX 
TRA 
L.TaX 
STX 


XTEMPS GET FC 
LOTPCM CHECK CONTIGUOUS CORE 


BC 
LSTReM 
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LOCN B1 B2 B3 


1580 06 TAF RESTORE STATUS 
1581 27 20 BEQ MEM2 IF CONT.» SKIF 
1583 DE 8B LIX MEMF TR GET POINTER 
1585 94 60 LOA A XTEMP2 GET FC 

1587 A7 O02 STA A 29x 

1589 94 6E LOA A XTEMFP2+1 

1S8k AZ 03 STA A 3y»Xx FUT IN MEMORY 
Sen 9C 49 CFX MEMOBA CHECK BEGINNING 
LS8F 27 03 BEQ MEM 

1591 BO 15 F4 JSR FIXCNT GO FIX BYTE COUNT 
1594 DE 8& — MEM LOX MEMPTR GET FOINTER 
1596 DF A2 STX LASTM SAVE FLACE 

1598 08 INX 

1599? 08 INX 

LS9A O08 INX 

IS9R 08 INX 

1S9C 4F CLR A 

159T 97 9A STA A MCOUNT 

1S9F 97 OB STA A MCOUNT+1 SET BYTE COUNT 
1SA1 TIF 8k STX MEME TER SAVE FTR 

15A3 DE 8B MEM2 LIIx MEMFTR GET FOINTER 
ISAS T16 90 LOA BR OFPCNT GET COUNT 

1SA7 96 7E LOA A OFCODE 

ISA? A?7 00 STA A OrXx 

LSAR 08 INX 

ISAC BO 15 EF? JSR INCCNT 

ISAF SA DEC B 

1SBO 27 13 REQ MEMS 

ISkh2 96 7F LOA A OF 

1SBk4 A? 00 STA A OX 

ISB6é 08 INX 

15B7 Bt iS E7 JSR INCCNT 

SBA SA DEC B 

ISBR 27 08 REQ MEMS 

ISkn 94 80 LOA A OFZ 

1SBF A? 00 STA A O#rX 

15€1 08 INX 

1SC2 BO 13 E7 ASR INCCNT 

15CS [OF 8k MEMS STX MEMPTR SAVE PLACE 

ISC7 946 SA LOA A TATFLG CHECK FCCsFCRy FOE 
1SC9 246 O1 BNE EXTIAT IF SO» GO SERVICE 
1SCR 39 MEM4 RTS NONE 

15CC CE 02 00 EXTIAT LINX #BYTSTK 

1SCF NF 71 STX XTEMF4 SET BUFFER FOINTER 
i501 DE 71 MEMS Lx XTEMF4 GET FOINTER 
1503 9C 87 CFX BYTFTR CHECK EMPTY 
1505 27 F4 BEQ MEM4 IF SOyv TONE 
1507 Aé& 00 LTA A QrX 

1Sn9 08 INX 

1S0A DF 71 STX XTEMF4 AIVANCE FTR ANI SAVE 
IS0C DE 8B L.DIX MEMF TR GET DEST FTR 
IS0E A? 00 STA A Q»xX FUT BYTE 

1SEO 08 INX 

1SE1 TIF 8B GTX MEMF' TR SAVE FLACE 


1SE3 80 02 BSR INCCNT FIX THE COUNT. 
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LOCN 
LSES 
LSE? 
1SE9 
1SER 
TSeEn 
LSEF 
1SF1 
1SF3 ¢ 
1SF4 
1SF6 
1SF8 
ISFA 
LOFC 
ISFE 


Ri 
20 


SYMBOL. 


ALTIFCO 
ALIVE TR 
ASME4 
BIN? 
CERR 
CHERL BL. 
CHK2ZER 
CLRL EL 
COPTION 
DECM2 
DELON 
EJSTR 
ERRHI 
EVALIA 
EXTUAT 
FERRO 
FINDISF 
FING 
FIXMOn 
FIXXX2 
FNTI222 
GAFX 
GETER2 
HASHCT 
HEXR 
IMMELIO 
IMMELS 
INTEX 
INDEX4 
LABEL 
LELBEG 
LINES 
LOADL 
LOTREC 


EAR 


ASSEMBLER 


Be BS 
EA 
oF 
O1 
9B 
PA 
OO 
oA 


PA 
00 
oR 
Ol 


HMMM 


TABLE? 


Oocss 
OSAG 
0828 
L3BC 
0474 
OSE 
0433 
O351 
ocAags 
1363 
O4ns 
Lit 
O54 
LLIEO 
L5CC 
O91A 
OC AF 
OS2F 
onsc 
QOEOL 
OC44 
OS31 
O46B 
00A4 
OCF 
OE 47 
OE7S 
OuAS 
ODEO 
OO4F 
0040 
09036 
1240 
O4F 1 


ASC 


Fi 


INCCNT 


FUIXCNT 


ATE 1 


ASMES 
RUF ENT 
CHKEOM 
CHKLOF 
CHKS 

CNXT 

COFL BL. 
ECM 
DIRECT 
ENDELG 
ERRORS 
EVALAB 
EXTEND 
FILTIT 
FINDS? 
FINS 

FIXMS 

FNDENDS 


GENER 
GETSYM 
HEADER 
HEX2 

IMMEDI 
IMMEDG 
INDIEXO 
INDEXS 
LLABRERR 
LBLEND 
LINFTR 
LONE 

LSOTSYM 
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BRA 
Loa 
Ath 
STA 
Loa 
Ane 
STA 
RTS 
Lx 
Loe 
STA 
LDA 
STA 


RTS 


A 


>DPrrD 


A 


>D 


ENT 


OCBS 
LSE? 
0832 
OOA? 
OBAA 
L427 
0464 
0496 
OCBF 
1387 
OE O4 
00358 
OOA? 


1114 
O50 
OS14 
O67 
LO2T 
Lei 
OORO 
OS7A 
1564 
139C 
ORAL 
OE 73 
OL 3 
OFA 
OBEBC 
0042 
exers3 & 
1393 
On7S 


ALUEC? 
ASMERR 
RCONY 
BYTCNT 
CHRERR 
CHK TAF 
CKOONE 
CONTIN 
CRLF 
DECX 
EJCHR 
EQUt 
ERRETR 
12AL  EVAL2 
On3C EXTENO 
FIN 
FINDG4 
FING 
FIXM4 
FNDILEL. 
F2 
GENOKI 
GOTLEL. 
HERROF 
HEX3 
LMMELI2 
INCCNT 
INDEXL 
INDEX9 
LABOUT 
LBLMSK 
LIST 
LOOF 

L. TEMES 


PAGE 


MEMS nO TILL DONE 
MCOUNT +1 
#1 
MCOUNT +1 
MCOUNT 
FO 
MCOUNT 16 BIT INCREMENT 


LASTM GET LAST START 
MCOUNT 
yx 
MCOUNT+21 
Lex SET BYTE COUNT 


NONE 


ALLS 
ASMES 
RINGO 
BYTSTK 
CHKGEN 
CHR2 
CLRLAR 
CONTRL 
DECM 
DELAY 
EJFLG 
ERRELG 
EVAL 
EVAL 4 
FCCFLG 
FINDSC 
FINS 
FIXCNT 
FIXXX 
FNIALO 
GAF 
GETERR 
HASH 
HE XL. 
IMMED 
IMMEDA 
INHEC? 
INDEXS 
INTITR 
LASTFEC 
L.ENCNT 
LOA 
LSOTPCM 
Lt. 


OC72 
OB21 
13BA 
0087 
OB A4 
O93? 
0061 
OSAS 
003A 
1460 
L13t 
QOAS 
0100 
1L2AL 
On4ay 
ORS 
OSO0S 
OCCL 
Oné6r 
O91F 
1298 
OCAL 
0664 
139A 
13k9 
OE6E 
1348 
ONCE 
OE? 
OOAZ 
0048 
LS4F 
0084. 
L391 


ANNES 
ASME 2 
BIN 
BYTE TR 
THRE RE 
CHK 1 
CKSUM 
CONT 
DATFLG 
QECXX 
EJECT 
ERRCNT 
ERAS TR 
E VALS 
EXTENT 
FINCR 
FIN2 
FIX 
FIXMS 
FNDOPT 
FS 
GETCHE 
GOTMSG 
HEX 
HEX4 
IMMEDI 3 
INDEC 
INDEX2 
INDEOO 
LASTM 
LINBYT 
L.NHIIX 
LSTERR 
iLTWO 


OC7E 
O7ES 
L2c9 
OOAG 
0437 
O4En 
0904 
O4RF 
O7 CF 
O4CF 
OO0A 
LORS 
0085 
L2A°9 
on43 
O46 
LIFE 
OS37 
OL6G2 
0905 
1203 
L4Fu 
OF 
O88 
L3AA 
OE 67 
1S5E7 
OnkA 
OnE? 
05684 
0060 
OOAE 
OB4F 
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OCFA 
OB24 
O9Fh2 
0200 
L4F4 
O45n 
OCéS 
0482 
1358 
0408 
OOSC 
0056 
L105 
L2RF 
OOSE 
L1E2 
OSLE 
LSF4 
OE84 
0908 
OOAA 
0440 
0B67 
OCB 
OESF 
OE69 
1350 
Ons 
1388 
OOFE 
00A8 
1216 
009T 


L275 


L2 
MAIN 
MEMCOD 
MEML 
MESGO 
MESG3 
MESGS 
MON 
MSGTEL 
NOEJT 
NOLAB 
NXTBL3 
OBJCO3 
OBJLION 
OCT 

OF CODE 
OF MUL2 
OPNTEL 
OF TEND 
OF? 
OUTHR 
QUT3S 
FARSE 
FARSE4 
PARSIA 
PARS2E 
PASONE 
PASS13 
PASS2X 
CRLF 
PEVAL 
PFAGS 
PRTERR 
PRTIND 
ERTMAR 
PRTS4 
PRT3 
PUTLBL 
POERRS 
QTEMF 
REHASH 
SETRIT 
SHELL 
SHORT 
SRCEND 
SYMGEN 
TAF EOF 
TFIXMD 
TYPE10 
TYPELS 
TYFE2A 
TYFE4 
TYFE7ZC 
TYPESC 
TYPE8H 
TYFE9 
TYF LOA 
TYPLIC 
TYFL3A 


1278 
0300 
1577 
1594 
04687 
0606 
073C 
O31B 
0669 
1198 
03A4 
0C64 
14AA 
1517 
1300 
OO7E 
12F 1 
12C1 
OBR6F 
0080 
11A3 
Ooccs 
OB73 
0C39 
ORCS 
OC24 
O3B1 
O38 
0401 
O7BA 
OBF2 
117F 


OnS9 
OF 7E 
1LOBO 
ones 
Ors4 
Onge 
OELG 
OF Or 
OF 42 
OF8A 
OFES 
10A1 


LS 
MARIION 
MEMGEN 
MEM2 
MESGI 
MESG4 
MESG9 
MOVE 
NAMI 
NOERHY 
NOMATL. 
OBJALIR 
ORJCO4 
ORJGEN 
ocTi 
OFTITY 
OF MUL.3 
OFSERR 
OF TERR 
ORTIOK 
OUTHXS 
FAGEND 
FARSEO 
FARSES 
FARSIE 
FARS2F 
FASS 
FASS2 
FASTHR 
PCRLF 1 
FLOOF 
FFAGSG 
FRTFLG 
FRTINE 
FRTMES 
FRTS2 
FRT4 
PLINit 
F2INIT 
QTEMF2 
RNIM 
SETGAF 
SHELL2 
SORT 
SRCFE TR 
SYMHIE 
TAFEON 
TITLE 
TYFELAL 
TYFELS 
TYFE2B 
TYPES 
TYPE?ZT 
TYFESLE 
TYFEST 
TYFESA 
TYF LOB 


_ TYFL2A 


TYP ASA 


1283 
114C 
0414 
15A3 
O69l 
O6TIE 
0753 
is0n 
LOF9 
O549 
0942 
O0AO0 
14A8 
040n 
1302 
130F 
L2FF 
O7116 
O94 
14466 
Ooccec 
O0AC 
OB?7F 
0038 
OBD1 
OBFF 
OO8F 
O3EO 
OSEE 
07C8 
O7A7 
LI6F 
OOSE 
OSS 
O4EA 
0650 
O63F 
0326 
O36F 
0079 
0091 
1403 
1401 
1410 
004Ti 
0538 
04C0 
00CS 
OF BEI 
Lonny 
orec 
Ous1 
Ongé 
OETA 
OF 2C 
OF 62 
OF SE 
1005 
10B4 
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LA 
MATCH 
MEMOBJ 
MEMS 
MESG1O 
MESGS 
MIX2 
MOVELF 
NAM2 
NOERKR 
NOPRT 
OBJIBUF 
ORJCOS 
OBJINT 
OF FLOF 
OP DIVA 
OFN 

OF SUB 
OF TLST 
OUTCH 
OUTS 
FAGER 
FARSE 1 
FARSES 
FARS2ZA 
FARS2H 
FASS 
FASS2A 
FASTWO 
FCRLE 2 
FFAG2 
PRP 
FPRTINA 
PRT INE 
PRTPC 
PRT L 
FSTR 
P2TION 
FP2INS 
QTEMFS 
SAME 
SETTL 
SHELLS 
SFCL 
SRTTON 
SYMPRT 
TAF OUT 
TOOMAN 
TYFEL2 
TYPEL? 
TYFE2D 
TYPES 
TYPES 
TYFESE 
TYPES J 
TYFEDR 
TYF LOC 
TYFL2B8 
TYP LSC 


1287 
O92 
0049 
1505 
0778 
O6F9 
0882 
143A 
1110 
0475 
OFAA 
OOR4 
1482 
0062 
1471 
1325 
0063 
1200 
1041 
0320 
OSLE 
OORL 
OBAE 
OC346 
OCO4 
ocsc 
O3R9 
OSES 
O3Sngy 
O7CC 
1174 
11A9 
OSCF 
OSC1 
O611 
0636 
O7 B2 
O4k1 
O3B0 
0077 
1481 
O35n 
1458 
1351 
1480 
OS88 
0323 
0836 
OFED 
LOE9 
On34 
OLn7 KB 
OE87 
OEC4 
OF 38 
OF 48 
OF 99 
1019 
1007 


Ls 
MATFLG 
MEMORY 
MEM4 
MESGLL 
MESGS 
MIXS 
MOVE TR 
NAMS 
NOERR2 
NXTBLI 
ORJCOD 
OBJCOS6 
OBJLF 
OF ADL 
OPLIVS 
OFNEND 
OF TARL 
OPTETR 
QUTHEX 
QUTSZ 
PAGFLG 
FARSE2 
PARSE? 
PARS2B 
FARS2 
FASSL1 
FASS2B 
BC 
FOTRL 
FRAGS 
PRELG 
PRTINE 
PRTING 
PRTREC 
PRT2 
FTNXT 
PRERRL 
P3FLG 
RANDOM 
SAVEPL. 
SETO 
SHELL6 
SPSAVE 
SUEBLS 
TAPBYT 
TEMF 
TYPERR 
TYPEL 
TYPE18 


TYPESF 
TYFESK 
TYPE9C 
TYFLLA 
TYPL2C 
TYP SR 


L2Sk 
0057 
OORS 
LSCKH 
O78E 
0716 
OB9F 
ofan 
LILE 
049th 
OCS 
1489 
L142 
1545 
L203 
1337 
1083 
O96B 
0094 
Octo 
Occvy 
OOSF 
OBN4 
OC33 
oOc1d 
ocin 
O30? 
O3FA 
0048 
O4kS 
L196 
0035 
OSnS 
OSFS 
1518 
0639 
0660 
0081 
oosn 
OBARB 
L515 
OS12 
1460 
0067 
OCES 
L580 
007k 
OFEA 
1089 
LLiF 
Onss 
ones 
OEBL 
OEF 1 
OF 34 
OF 4E 
OF TD 


1009 


oOn4ac 


L.é 
MCOUNT 
MEMFTR 
MEMS 
MESG2 
MESG? 
MODIFY 
MSGHI 
NOIR 
NOERR4 
NXTEL2 
ORJCOL 
ORICO? 
OBJFTR 
OPCNT 
OF MUL 
OFNETR 
OF TION 
OF 1 
OUTHL. 
OUT25 
FARFF2 
PARSE S 


-FARSOA 


PARS20 
FASTION 
FASSL2 
FASS2C 
FCFLAG 
EDATA 

PPAG4 

PRTDAT 
ERTINC 
PRTLT 

PRTSRC 
PRTZER 
FUTIT 

PIERR2 
PSINIT 
RECORL 
SAVFTR 
SHELL 

SHIFTL 
SRCBEG 
SYMBOL 


' TAFE 


TERM 

TYPE 

TYPELA 
TYPE? 
TYFESA 
TYFEZA 
TYFESE 
TYFEBG 
TYFESL 
TYPES 
TYPI1E 
TYP 120 
XLOOF 


1290 
009A 
QOO8B 
150 
O6AE 
O72F 
QOAR 
0681 
O38 
04A4 
Ocsc 
1499 
L4nn 
0o8? 
0090 
L2E7 
0094 
1040 
OO7F 
1190) 
OCC? 
OC 4B 
ocen 
OR7? 
OCc11 
L477 
OSCE 
O41K8 
0059 
O7 AB 
1183 
OSFF 
OSL? 
OCs 
0642 
O48F 
O8KRE 
0082 
O36F 
LS41c 
0098 
L3FO 
LSOR 
0044 
QOAF 
OOK? 
0064 
O1o3 
1LOA2 
O06 
O39 
onsen 
OEBE 
OF OG 
OF 3A 
OFSD 
OF ES 
OFFS 
04C0 
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XSAVE 0065 XTEMP O669 | XTEMF 1 OO68 XTEMP2 OO4T XTEMF3 OO6F 
XTEMP4 0071 XTEMPS 0073 


OBJECT CODE’ 


$1 143 0300 SE AO ZF BL O83 26 BL O38 B1 BH O3 4F BE O3 D9 BO 60 
S113 0310 03 26 BL O3 Bl BO O3 6F BD OS BR 7E EO f0 86 20 BF 
S113 0320 7E Ei Dd 7E Ei ttl S46 FF 97 AE 97 BO 97 AF 97 S39 22 
$1 13 0330 40 97 AB 4F 97 B1 97 AC 97 ALL &7 AS 97 S& 97 B2 AA 
S113 0340 97 B3 97 58 97 AP B6 7F 97 60 CE O1 00 DF 85 DE 23 
$1 13 0350 40 6F 00 08 9C 42 246 F9 CE 00 C6 B46 20 A? 00 O08 FC 
Si 13 0360 8C 00 E6 26 FB B46 04 A? OO CE 00 00 DIF 4B 39 86 11 
S113 0370 FF 97 62 97 SO CE O1 00 DF 85 CE 00 00 IF 48 CE 94 
S113 0380 FF FF DF 9C DIF 9E 4F 97 A7 97 9A 97 9B 97 SB CE C4 
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ASMB 


The TSC Mnemonic Assembler for the FLEX Operating System is a 
very fast and powerful assembler for the 6800 computer system. 
The disk version will allow the assembly of very large source 
files and will produce machine readable binary directly to a disk 
file. Several assembly time options are also available. This 
manual is only a supplement to the full Mnemonic Assembler manual 
and only includes the differences between the FLEX version and 
the RAM based version. 


DESCRIPTION 
The general syntax of the ASMB utility is: 
ASMB, <file spec 1>(€,.<file spec 2>1€.+<option list>] 


The name of the file to be assembled is <file spec 1> and 
defaults to a TXT extension and to the working drive. If <file 
spec 2> is specified, that will be the name of the binary file 
written to the disk. If <file spec 2@> is not included in the 
command line, the binary file will have the same “name” as that 
of the file you are assembling, but the extension will be BIN. 
If a binary file of the same name already exists on the disk, the 
assembler will ask if it should be deleted. Respond with “Y" if 
it should be. 


There are 6 options which may appear in the <option list>. The 
option list is separated from the command line by a plus sign 
€°+°>, and each option is represented by a single letter. 
Following is a list of the available options and what they mean: 


B Do not create a binary file on the disk. If this option 
appears in the list, no binary file will be created, even if 
<file spec 2@> is specified. This is useful while running 
the assembler and checking for errors, before the final 
program is completed. 


G Turn “NOGEN’ on. Refer to the full assembler manual for a 
description of NOGEN. 


L Turn the assembler LIST mode off. The assembler will 
normally produce an assembled listing. The L option will 
suppres this listing, and only error lines (¢if any exist) 
Will be displayed 


Ss Suppress the output of the Symbol Table. Normally the 
assembler will output a sorted symbol table at the end of 
each assembly. Including the S$ in the option list will 
suppress the output of this table. 
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N Output line Numbers with the assembled listing. The 
assembler will normally not include line numbers in the 
listing. During program debugging it is often useful to have 
each statement numbered. These numbers will directly 
correspond to the numbers assigned to each line while in the 
Text Editing System. Error lines will always be output with 
line numbers, regardless of the status of the N option. 


T Assemble the file for an ‘Si’ formatted object tape. This 
option allows the production of an “S1° tape directly from 
the assembler. Consult the full manual for Tape details. 


v This option tells the assembler to automatically delete any 
old binary files of the same name as the source file if 
binary is being produced. If this option is not specified, 
the assembler will prompt you if a binary file already 
exists. 


Some examples of assembler cammand lines follow: 


ASMB. TEST 

ASMB, TEST. +L$ 

ASMB, @. TEST, 1. TEST. CMD, +5 
ASMB. TEST. +BN 


The first example would assemble the source file TEST. TXT from 
the working drive and create a binary file named TEST. BIN on the 
same drive. The second example would do the same operation as 
the first example, but this time the Listing and the Symbol table 
output would be suppressed. The next example would assemble the 
file named TEST. TXT on drive ® and produce a binary file on drive 
1 named TEST. CMD. Because of the S$ in the options field) no 
symbol table would be output. The last example will assemble the 
file named TEST. TXT. producing a listing with line mumbers, and 
not produce a binary file ‘because of the B>. 
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ADDITIONAL ASSEMBLER FEATURES 


There is one additional feature included in the FLEX version of 
the assembler which is not included in the RAM version. In order 
for a binary file to be directly executable by FLEX, it must have 
a transfer address associated with it. This assembler allows for 
the assignment of a transfer address by putting a label or value 
in the ‘operand field” of the END statement in the source 
Listing. As an example, suppose the program you were assembling 
was to start executing at location $198. and in the source you 
had the label START on the statement which was ORGed at $108. 
The END statement should now include this label in its operand 
field in order to assign $180 as the transfer address 


ORG $108 
START LDX SFFFF 


rest of program here 
END START 


The above shows what this would look like 


ASSEMBLED LISTINGS TO A PRINTER 


To have the listing printed on a printer, as opposed to the 
terminal, simply precede the command with P ¢see the “P” command 
in the FLEX UCS description). This is assuming that the 
appropriate PRINT. SYS file exists in the operating system). As 
an example: 


+++P, ASMB. TEST 


This would cause the assembled listing of the source file 
TEST. TXT to be printed on the printer. 


SYMBOL TABLE SPACE 


The number of symbols which the assembler will support is 
dependent upon the amount of memory installed in the computer. 
As a rough guide. 12K will allow approximately 286 symbols while 
24K and above will allow 1808 symbols. It is roughly 
proportionate for values between these extremes. The assembler 
automatically determines the memory size 
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9326 
B3B1 
O36F 
@3D9 
0873 
8896 
1348 
OEF1L 
BSFF 
acc? 
7806 
7803 
8883 
9604 
7O94 
7esc 
6028 
7748 
7O9L 
7932 
7183 
710F 
7112 
7115 
7118 
711E 
71ée1 
7127 
712d 
7133 
7139 
713C 
71L3F 
7BAS 
7096 


eX Fe EXE 


COPYRIGHT ‘C> 1978 BY 


* EQUATES TO BOS 


PLINIT 
PASONE 
P2INIT 
PASTWO 
XTEMPS 
OPNPTR 
INDEC 
TYPESF 
PRTDAT 
OUTeS 
FMS 
FMSCLS 
FEER 
NFER 
BUFPNT 
ASN 
SPC 
FCB 
LSTTRM 
DEOL 
WARMS 
GETCHR 
PUTCHR 
INBUF 
PSTRNG 
PCRLF 
NXTCH 
GETFIL 
SETEXT 
OQUTDEC 
OUTHEX 
RPTERR 
GETHEX 
OQUTCHN 
RETRNR 


EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQuU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EGU 
EQU 
EQU 


$0326 
$3B1 
$36F 
$3D9 
$73 
$36 
$1348 
$OEF4 
$SFF 
$CC? 
$7806 
$7803 
3 

4 
$7094 
$7@8C 
$20 
$7740 
$7094 
$7082 
$7103 
$710F 
$7112 
$7415 
$7118 
$7411E 
$7124 
$7127 
$7120 
$7133 
$7139 
$713C 
$7413F 
$7BA3 
$7096 


* TEMPORARY STORAGE 


TSC MNEMONIC ASSEMBLER 


TSC ASSEMBLER MODS FOR USE WITH THE 
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ages 


6628 
6829 
862A 
6628 
ag2C 
@02D 
BB2E 
@82F 
2030 
0831 
8032 
8833 
8634 
8036 
8037 
8039 
803B 
8630 


0389 
8300 


0318 
B31B 


8328 
8329 


B83Ee2 
@3E2 
O3ES5 


8500 
858d 
8518 


07BA 
@7BA 
87BD 
O7BE 


0447 
8447 
Q44—A 
G44B 
844C 


@489 
8489 


7E 


ve 


7E 


BD 
e1 


BD 
20 


16 


ret 


71 


18 


19 
a4 


71 


18 


18 


ge 


B3 


12 


2b 


1E 


7B 


7B 


OBJFLG 
PRNFLG 
NLFLG 
NSFLG 
NGFLG 
TPFLG 
END 
FLG 
YFLG 
FCBFLG 
SPCFLG 
LINFLG 
LINCNT 
XFRFLG 
XFRADR 
TMPOUT 
BUFEND 
INDEXS 


DRG 


RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 


$28 


BWNArFPAP RPP PRP BP PP Pp Pp 
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* NEW ASSEMBLER STARTS HERE 


START 


ORG 
JMP 


ORG 
IMP 


ORG 
JIMP 


ORG 
JSR 
NOP 


ORG 
JSR 
BRA 


ORG 
JSR 
NOP 
NOP 


ORG 
JSR 
NOP 
NOP 
NOP 


ORG 
JSR 


$366 
DASMB 


$31B 
HARMS 


$320 
PUTCHR 


S3E2 
P2AUX 


$500 
FINOBJ 
+6 


$7BA 
PCRLF 


$447 
ERRLIN 


$489 
ERRLIN 


SET LINCNT 


SET FOR NUMBERS 
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848C 
48D 
848E 


4406 
@4D6 


gS5C1 
65C1 


asc4. 


QSFA 
@S5FA 


8642 
8642 
a64e2 


aDO3 
gDB3 


BES? 
BES7 
BESA 
BESD 
BESF 
BESL 
BESS 
BEI6 
GE38 


aF4e 
6F 42 


10E6 
10E6 
18E9 


1059 
1959 


11F5 
11-5 


1577 


1577 
1579 
1578 
157C 
157E 
1588 


81 
61 
@1 


7E 


BD 
O41 


BD 


7E 


BD 


7E 
BD 


58 


BD 


18 


18 


13 


18 
18 


18 


6D 
9c 


4B 
9C 


3E 


96 


ee 


85 


48 


DS 


6B 


19 
12 


Sti 


PRTSRC 


* WRITE 


MEMCOD 


NOP 
NOP 
NOP 


ORG 
JMP 


ORG 
JSR 
NOP 


ORG 
JSR 


ORG 
EQU 
JMP 


ORG 
JHP 


ORG 
JSR 
LDH 
STR 
LDH 
STH 
JSR 
Bcc 
JSR 


ORG 
JSR 


ORG 
JMP 
JSR 


ORG 
Fcc 


ORG 
JSR 


ORG 


BINARY 


LDX 
CPA 
TPA 
LOX 
STX 
TRAP 


#4D6 
DOTAP 


$5C1 
PLINE 


$SFA 
PBYTE 


$642 
* 
OUTSRCE 


DGS 
DOMOD 


$E87 
DOFCC 
#B7TSTK 
BYTPTR 
OPNFTR 
XTEMPS 
INDEC 
TYPESF 
EVAL 


$F 42 
DOFCB 


$1GBE6 
DOEND 
BOTTL 


$1059 
“RRA S 


$11F5 
FIXSTR 


$1577 


TSC MNEMONIC ASSEMBLER 


FIX TAPE ROUTINE 


PRINT LINE OF SOURCE 


DO SPECIAL BYTE 


DO OUTPUT 


FIX MODFY 


FIX FCC 

SET POINTER 

SAVE IT 

SET TO OPN 

SAVE IT 

CHECK FOR DECIMAL 
ERROR? 

GO EVALUATE 


SET SPECIAL 


FIX 
FIX 


END 
TTL & NAM 


FIX #°* PROBLEM 


TO DISK FILE 


xTEMP2 
LSTPCM 


PC 
LSTPCM 


GET PC 


CONTIGUOUS CODE? 


GET ACTURL PC 
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FLEX ASSEMBLER MODS 


1581 
1583 
1585 
1588 
158A 
158c 
1S58E 
1598 
1593 
1595 
1597 
1599 
1598 
1590 
159E 
15A9 
15A2 
15R4 
15A5 
15A?7 
15A9 
15AB 
15AD 
1S5AF 
15B21 


27 
8D 
CE 


Be MEML 


MEM2 


MEMS 


MEMS4 


1562 86 EXTDAT 
1585 
15687 
15B9 
15BB 
15B0 
L58F 
15C8 
15ce 
15C4 
15c6 


15c8 


MEMS 


BEQ 
BSR 
LDX 
LOR 
STA 
LDA 
STA 
LDX 
STX 
LDX 


LDA 
BSR 
DEC 
BEQ 
LDA 
BSR 
DEC 
BEQ 
LDR 
BSR 
STA 
LDA 
BNE 
RTS 


LDX 
STX 
LDA 
CPX 
BEQ 
LDA 
INK 
STR 
LDK 
BSR 
STX 
BRA 


D oO DO DUDD 


> 


* PUT BYTE IN 


15CA MEMPUT 
a45cc 
15CD 
1508 
1503 
15D5 
1507 
1509 
150A 
1500 
L5DF 
15E9 
15E2 


MEMPU2 


AC 


MEMPU4 


STA 
INK 
INC 
CPX 
BNE 
LDA 
BEQ 
PSH 
LDX 
STA 
TAB 
ADD 
LDA 


A 


Dao wD 11.3} 2D 


TSC MNEMONIC ASSEMBLER 


MEM2 IF CONT, SKIP 
MEMPU2 
#MEMBUF SET POINTER 
XTEMP2 GET PC 
4, % SET IN BUFFER 
XTEMP2+1 
2.x 
#MEMBUF+4 GET POINTER 
MEMPTR SAVE POINTER 
MEMPTR GET POINTER 
OPCNT GET COUNT 
OPCODE GET BYTE 
MEMPUT PUT IN BUFFER 
DEC THE COUNT 
MEMS 
OP4. GET NEXT 
MEMPUT PUT IT 
DEC THE COUNT 
MEN3 | 
oP2 GET NEXT BYTE 
MEMPUT 
MEMPTR SAVE POINTER 
DATFLG TEST FLAG © 
EXTDAT 
RETURN 
#BYTSTK SET POINTER 
XTEMP4 SAVE IT 
XTEMP4 GET POINTER 
BYTPTR EMPTY? 
MEM4 FINISHED? 
@.X GET BYTE 
BUMP POINTER 
XTEMP4 SAVE IT 
MEMPTR POINT TO BUFFER 
MEMPUT 
MEMPTR SAVE PLACE 
MEMS REPEAT 
BUFFER 
@, Xx PUT BYTE 
BUMP THE POINTER 
MCOUNT BUMP COUNTER 
#MEMBUF +200 
MEMPUS FINISHED? 
MCOUNT GET COUNT 
MEMPUB EMPTY? 
#MEMBUF SET POINTER 
3,% SET BYTE COUNT 
SAVE COUNT 
#4 ADD IN ADD BYTES 
Q,% GET CHARACTER 
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FLEX ASSEMBLER MODS 


15E4 
15E7 
15E8 
15E9 
15EB 
1S5ED 
15F@ 
15F2 
15F3 
15F5 
15F? 
1SF9 


1662 
1685 
1668 
166B 
160E 
1618 
1612 
1614 
1616 
1618 
161A 
161C 
161E 
1628 
1622 
1623 
1625 
1627 
1629 
162B 
162D 
162F 
1631 
1633 
1635 
1636 
1639 
163B 
163C 
163E 
1648 
1642 
1644 
1646 


BD 17 F8 


AC 


BS 


38 


MEMPUS 


JSR 
INX 
DEC 
BNE 
STA 
LDA 
STA 
CLR 
LDA 
ADD 
ADC 
STA 
STA 
PUL 
LDX 
RTS 


oapVaoODDD 


WRITE 


MEMPU4 
MCOUNT 
#MEMBUF 
MEMPTR 


#196 
2.4 
1, % 
1. % 
2.8 


#MEMBUF +4 


* DISK ASSEMBLER ENTR*' 


DASMB 


DASMBe 


DASMB3 


LDS 
LDA 
STR 
LDX 
STA 
LDA 
STA 
STA 
STA 
STA 
STR 
STR 
STA 
STA 
CLR 
STA 
STR 
STA 
STA 
STA 
LDA 
STA 
CMP 
BNE 
INX 
CPX 
BNE 


DEX 


STX 
LDA 
LDA 
CMP 
BLO 
SUB 


DUDDIDBDIIBDIIP IVD D PAID IIDD 


DO D 


#SROCF 
#DASM?ES 
RETRNR 
#BUFBEG 
SRCBEG 
#3FF 
GBJIFLG 
FRNFLG 
NLFLG 
NSFLG 
NGFLG 
TPFLG 
LINFLG 
YFLG 


xFRFLG 
LINCNT 
LINCNT +21 
END 
LINBYT 
#3B4 

BX 

a. X 
DASMBS3 


#$7008 
DASMBe 


LBLEND 
LBLEND 
LBLEND+1 
#$50 
DASMSS 
#8 


TSC MNEMONIC ASSEMBLER 


BUMP THE POINTER 
DEC COUNT 


CLEAR COUNT 
RESET POINTER 


SET ADDRESS 
FIX ADDRESS 


SAVE NEW 
RESTORE B 


RETURN 


SET STACK 
SET RETURN REG 


SET SOURCE BUFFER 


SET LINE BYTE 
SET TEST CODE 
WRITE CHARACTER 
CHECK IT 

LOOP 

BUMP TO NEXT 
INTO DOS? 

LOOP? 

SET LABLE END 
GET HI HALF 


LOTS OF MEMORY? 


SAYE SOME SPACE 
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FLEX ASSEMBLER MODS 


1648 
164A 
164C 
164D 
164E 
1658 
1652 
1654 
1656 
1658 
1659 
165A 
165C 
1650 
1660 
1662 
1665 
1666 
1668 
166A 
1660 
1676 
1672 
1675 
1677 
167A 
167C 
167F 
1681 
1633 
1684 
1685 
1687 
168A 
168C 
168F 
1691 
1693 
1696 
1698 
1698 
169D 
169F 
16Ae 
16AS 
16A7 
16AA 
16AD 
1680 
16B3 
16B5 
16B7 
16BA 
16B8C 


441 


48 


74 
2? 


74 


2D 


v7 


34 


74 


a6 


8A 


CASMSS 


DASM3?7 


DASMB4 


DASM4S 


DASM4? 
CASN4s 


DASMBS 


DASMBE 


STA 
STA 


oO oO m@ oO on D 


Ls ie 8) 


oDD 


LBLEND 
LBLBEG+1 


#3FO 
#$60 


-DASM3?7 


#419 
##19 


LBLBEG 


LBLBEG+1 
DASMB4 
LBLBEG 


BUFEND 
BUFEND+1 
#RFCB 
GETFIL 
DASM4?7 
#RFCB 
#1 
SETEXT 
#12 
#RFCB+3 
GB. & 
192, X 


DASM4S 
#WFCB 
12. % 
#RFCB 
#1 

G. Xx 
FMS 
DASN72 
TSTTRM 
DASMB7 
DASMBSE 
#WFCB 
GETFIL 
DASMBS 
#ILST 
PSTRNG 
WARMS 
TSTTRM 
DRASMB?7 
DASMB? 
NXTCH 
DASMB? 
#TABLE 


TSC MNEMONIC ASSEMBLER 


SET NEW END 
SET POINTER 


MASK OFF 


REMOVE SOME 
FIX VALUE 


SET BEGINNING 
RESTORE B 


SET VALUE 
SAVE BUFFER 


POINT TO FCB 
GET FILE NAME 


POINT TO FCB 
SET EXT 


SET COUNTER 
SET POINTER 
GET CHARACTER 
MOVE TO WFCB 
BUMP TO NEXT 
DEC THE COUNT 


SET POINTER 
CLEAR EXT 

SET POINTER 
OPEN FOR READ 


CALL FMS 
ERROR? 
TEST TERM 


SET TO FCB 

GET FILE NAME 
ERROR? 

POINT TO STRING 
OUTPUT IT 
RETURN TO DOS 
TEST TERM 


GET CHARACTER 


SET POINTER 
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FLEX ASSEMBLER 


16BF 
16C1 
16C3 
16C4 
16C5 
16C6 
16C38 
16CA 
16CD 
16CF 
1609 
1602 
1604 
16D6 
1608 
160A 
16DD 
16DF 
16E2 
16E5 
16E7 
16E9 
16EC 
16EE 
16F0 
16Fe 
16F4 
16F6 
16F8 
16FA 
16FC 
16FE 
1761 
1784 
17°87 
170A 
176D 
170F 
1711 
1714 
1716 
1718 
171B 
1710 
171iF 
1721 
1723 
1725 
1727 
172A 
172D 
1730 
1733 
1736 


68 
ec 


SA 


86 


MODS 


DASM62 


DASME6S 


DASM6?7 


DASMB? 


DASM7e2 


DASN?S 


DASM?74 


DASM?S 
DASM?7 


DCASMBS 


CMP 
BEQ 
INS 
INK 
INK 
TST 
BNE 
LOX 
BRA 
INX 
LDX 
CLR 
BRA 
LDA 
BEQ 
LDA 
LDA 
JSR 
LDX 
LDR 
STA 
JSR 
BNE 
LDA 
STA 
BRA 
LDA 
CMP 
BNE 
LDA 
BEQ 
Inc 
LDX 
JSR 
JSR 
CLR 
CMP 
BNE 
LDX 
LDA 
STA 
JSR 
BNE 
LDA 
STA 
BRA 
CMP 
BNE 
LDX 
JMP 
JSR 
JSR 
JMP 
JSR 


DD 


8. % 
DASM67 


6.8 
DASM62 
#IOST 
DASM4s 


B. X% 
B. 4% 
DASMB6 
OBJFLG 


" DASMBS 


#WFCB 
#6 
SETEXT 
#WFCB 
#2 

B: % 
FMS 
DASM7e 
#3FF 
39.4 
DASMBS 
1,% 
#FEER 
BDASM?74 
VFLG 
DASMN?3 
OUTCHN 
#DLST 
PSTRNG 
GETCHR 
OUTCHN 
#°Y 
DASM?7 
#WFCB 
#12 
Q. % 
FMS 
DRSM7S 
36. % 
4,% 
DASMB? 
#NFER 
DASM?S 
#NFST 
DASM48 
RPTERR 
FMSCLS 
WARMS 
PLINIT 


TSC MNEMONIC RSSEMBLER 


CHECK CHAR 


BUMP THE POINTER 


END OF TABLE? 
POINT TO STRING 


BUMP THE POINTER 
GET ADDRESS 

SET COND 

REPEAT 

GET FLAG 

BINAR''? 

SET TO FCB 


SET EXTENSION 
SET FOR WRITE 
OPEN FILE 

SET SPC COMP 
GET ERROR 

FILE EXISTS? 
CHECK FOR Y¥ 
SET CHANNEL 
POINT TO STRING 
OUTPUT IT 

GET RESPONSE 
RESET CHAN 

Is IT YES? 
EXIT 

POINT TO FCB 
SET FOR DELETE 
CALL FMS 
ERROR? 

RESTORE NAME 
NO FILE? 

POINT TO STRING 
REPORT ERROR 


DO BOS 
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17°39 
173C 
173F 
1741 
1743 
1746 
1749 
174B 
174D 
1750 
1752 
1755 
1756 
1758 
175A 
175C 
175E 
1761 
1764 
1766 
1768 
176A 
176C 
176E 
1778 
17 ?2 
1774 
1776 
1778 
1779 
1778 
177d 
17898 
1782 
1784 
1787 


178A 
1780 
178F 
1794 
1794 
1796 
1798 
179A 
179C 
179D 
17AG 
17ARe 
17AS 
17AS 


BD 
BD 
96 


AF 
Bi 


2E 
74 


86 


6F 


AC 
BS 


Dg 


83 
83 


91 


82 


94 


MODS 


CASM86 


DASMBS 


DASMSS 


* TEST 


TSTTRM 


“TSTTRIA 


TSTTR2 


JSR 
JSR 
LDA 
BEQ 


CLR - 


LDX 
LDA 
STA 
JSR 
BNE 
JSR 
CLR 
STA 
STA 
STA 
LDA 
STA 
LDX 
STX 
LDA 
STR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
COM 
STA 
BSR 
JSR 
LDA 
BEQ 
JSR 
JMP 


LAST 


LDA 
CMP 
BEQ 
CMP 
BEG 
CMP 
BNE 
LDA 
RTS 
LDX 
LDA 
INK 
CMP 
BNE 


FILBUF 

PASONE 
A END 
DASM86 
END 
#RFCB 
#5 
@. 
FMS 
DASM7S 
PeINIT 


DD 


MCOUNT 
SPCFLG 
FCBFLG 
#2 
MEMBUF 
#MEMBUF +4 
MEMPTR 
OBJFLG 
MEMORY 
NLFLG 
LIST 
NSFLG 
SYMBOL 
NGFLG 
GENER 
TPFLG 


DUAVNAOHD 


vVDDIIDIIIDIAIIAVIDD 


TAPE 

FILBUF 
PASTWO 
A END 

DRSMBY 
FMSCLS 
WARMS 


TERM 


RAR LSTTRM 
RAR #$D 
TSTTR4 
A DEOL 
TSTTR4 
A #°+ 
TSTTRe 
A #SFF 


BUF PNT 
R Gk 


A #%+ 
TSTTR3 


TSC MNEMONIC ASSEMBLER 


FILL BUFFER 
DO PASS 
CHECK END 
CLEAR FLAG 
POINT TO FCB 
REWIND FILE 
CALL FMS 


DO INITL2Z 
CLEAR FLAG 


CLEAR SPECIALS 
SET BOF BYTE 
SET POINTER 
SET ALL OPTIONS 
BINARY 

LIST 

SYMBOLS 

GEN 

TAPE 

FILL BUFFER 

DO PASS 
FINISHED? 


CLOSE FILES 
GOTO BOS 


GET TERM 
Is IT CR? 


Is IT EOL? 
Is IT MINUS 


SET NEG 

RETURN | 

SET TO BUFFER 
GET CHARACTER 
BUMP THE POINTER 
IS IT “+°? 
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117A? 
17AA 
L7AC 
17RE 


17AF 
17Be 
17B4 
1786 
17B9 
17BC 
17BE 
17C8 
17Ce 
17C4 
17C? 
17cs 
17CB 
17CB 
1?7CF 
17Dd2 
1704 
17D6 
17D8 
17DA 
17bC 
17DD 
17DF 
17E1L 
17E3 
L7ES 
LTE? 
L7ES 
17EB 
17EC 
LPEE 
17FQ 
17F3 
L?FS 
LVF? 


17F8 
17FA 
17FD 
18068 
1862 
1804 


78 
EE 
61 


30 
18 
78 


3D 


94 


2F 


74 
86 


2D 


2F 


2F 


34 
Q6 


MODS 


TSTTRS 
TSTTR4 
* FILL 
FILBUF 


FILBU2 
FILBee 


FILBes 
FILB2eS 
FILBUS 


FILBU4 


FILB4S 


FILBUS 


FILBSS 


FILBUG 


FILBU? 


FILBUS 


* WRITE 


WRITE 


WRITE2 


STH BUFPNT 
BRA TSTTR1 
LDA A #1 

RTS 


TSC MNEMONIC ASSEMBLER 


SET NEW POINTER 


SET PLUS 
RETURN 


RAM BUFFER WITH SOURCE 


CLR 
LOX 
STX 
LD 
JSR 
BEQ 
LDA 
CMP 
BEQ 
JMP 
LDA 
LDA 
CPX 
BNE 
INC 
CMP 
BEQ 
CMP 
BNE 
STA 
DEX 
LDA 
CMP 
BNE 
BRA 
CMP 
BLS 
STA 
INK 
BRA 
STA 
TST 
BEQ 
STH 
RTS 


TO FILE 


STA 
LDA 
JSR 
BNE 
LDA 
RTS 


DoD oD 


2D 


FLG 
SRCBEG 
INDEXS 
#RFCB 
FMS 
FILBUS 
1: % 

#8 
FILBeS 
CASMN?S 
#$1A 
INDEXS 
BUFEND 
FILBU4 
FLG. 
#$D 
FILBU? 
#31A 
FILBUS 
END 


8.4 
#$D 
FILB45 
FILBUS 
#$4F 
FILBU2 
G.% 


FILBU2 
GB. % 
FLG 
FILBUG 
SRCEND 


INDEXS 
#WFCB 
FMS 
FILBes 
INDEKS 


CLEAR FLAG 
SET POINTER 
SAVE POINTER 
POINT TO FCB 
GET CHARACTER 


CHECK ERROR 
Is IT EOF? 


REPORT ERROR 
SET EOF 

RESTORE POINTER 
END OF BUFFER? 


SET FLAG 
Is IT CR? 


Is IT EOF? 


SET END 

DEC THE FOINTER 
CHECK CHARACTER 
IS IT CR? 


IS IT CNTRL? 


PUT CHARACTER 
BUMP THE POINTER 
REPEAT 

PUT CR 

FINISHED? 


SET POINTER 
RETURN 


SAVE POINTER 
SET TO FCB 
PUT CHARACTER 


RESTORE 
RETURN 
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1885 
1807 
1889 


1886 
180E 
1814 


1812 
1815 
1818 


1819 
1816 
181D 
1814F 
1821 
1823 
1826 
1828 
132A 
182D 


182E 
1831 


1834 
1837 
1839 
1838 


183E 
1846 
1842 
1845 


1848 
184B 
184E 


1851 
1852 
1854 
1855 
1857 
1859 


FF 
@A 
2 
ae 


2? 


96 


88 
31 


59 


DS 


36 


AB 
86 


SR 


D3 


Fi 


31 


a 


Moos 


TSC MNEMONIC ASSEMBLER 
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* SPECIAL PATCHES AND MODS 


DOFCC LDR AR #$FF 
STA A ERRFLG 
BRA DOTTLe2 

DOFCB LOX #BYTSTK 
INC FCBFLG 
RTS 

DOTTL CLR PCFLG 

DOTTL2 INC SPCFLG 
RTS 

* SET TRANSFER ADDRESS 

DOEND STR A $58 
LD OPTPTR 
LDR A 35% 
CHP A #$D 
BEQ DOEND1 
JSR EVAL 
LOK QTEMP | 
STX XFRADR 
INC XFRFELG 

DOENDL RTS 

BDOMOD CLR MODFY 
JMP ADDPCL 


* FIX DATA FLAG IN FCB 


FIXDAT CLR DATFLG 
LDA A GENER 
BEQ DOEND1L 
JMP $5D3 
COTAP LDA A TPFLG 
BNE DOTAP2 
JMP $4F1 
DOTAPe2 JMP $4DA 
posym JSR $1131 
JSR PCRLF 
JMP PCRLF 


* FIX #°* PROBLEM 


FIXSTR DEX 


LDR A BX 
INK 

CMP A °° 
BEQ FIXSTe 
CPX OPNPTR 


SET ERROR FLAG 


SET POINTER 
SET FLAG 
RETURN 


SET SPECIAL FLAG 


SET END 

SET POINTER 
FIELD THERE? 
IS IT CR? 


EVALUATE FIELD 
GET YALUE 


SET ADDRESS 
SET FLAG 


FIX FLAG 
FINISH UP 


CLEAR OUT 
CHECK IF GENERATION 


CONTINUE 


FINISH TAPE OUT 
CONTINUE 


EJECT TO NEW PAGE 


OUTPUT CR & LF 
RETURN 


DEC THE POINTER 


BUMP TO NEXT 
Is IT QUOTE? 


CHECK POINTER 


FLEX ASSEMBLER 


185B 
185C 


185D 
1860 
1863 
1866 
1868 
186B 
186E 


1872 
1873 
1875 
1377 
1873 
187A 


18768 
137E 
1380 


1882 
1885 
1887 
1889 
188A 
188D 
1898 
1893 


e6sD 


1896 
1898 
1899 
1898 
189D 
189F 
18AL 
18A3 
18A5 
18A7 
18RA 
18AB 
L38AD 
18AF 
18B1 


6? 
39 


67 BA 


@7 BA 


71 12 
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FIXST2 TPA SAVE STATUS 
RTS RETURN 


* SPECAIL BYTE OUTPUT 


PBYTE JSR $7BA OUTPUT CR & LF 
CLR DATFLG 
TST LINFLG NUMBERS? 
BNE PBYTE4 
JSR CCS OUT 3 SPACES 
JSR CCS OUT 3 MORE SPACES 


PBYTE4 JMP PRTDAT+3 RETURN 


P2AUX LDX PC SETUP NEW PC 
STA XTEMP2 SAVE VALUE 
LDA LINCNT GET COUNT 


INK BUMP BY ONE 
STX LINCNT SAVE NEW 
RTS RETURN 

ERRLIN JSR $7BA DO CR & LF 
LDA B #21 


BRA PLINE1 
* LINE NUMBER OUTPUT 


PLINE JSR $7BA OUTPUT CR & LF 
LDR B LINFLG CHECK FOR NUMBERS 
BNE PLINE2 
INC B SET FOR SPACES 
PLINEL LDx #LINCNT SET POINTER 
JSR OUTDEC OUTPUT NUMBER 
JSR $31E OUTPUT A SPACE 
PLINE2 JSR PRTDAT+3 DO DATA 


* SPECIAL FIELDS OUTPUT ROUTINE 
LINPTR EQU $8D 


OUTSRC LDX LINPTR 


CLR B 
LOA AG. 
CMP A #$2A CHECK IF COMMENT 
BE FINOUT 
OUTSR1L CMP A #%20 Is IT SPACE? 


BEQ OUTSRe 
BSR OUTFLD OUTPUT NEXT FIELD 
OUTSR2 LDA AR ##2e 


JSR PUTCHR OUTPUT SPACE 
INC B BUMP COUNTER 
CMP B #8 COLUMN 9 YET? 
BLO OUTSRe 
OUTSR3 BSR NEXTC GET NEXT CHARACTER 


JSR PUTCHR OUTPUT IT 


FLEX ASSEMBLER 


1884 
18B5 
18B?7 
18B9 
1sBC 
18SBE 
18C9 
18C3 
18C4 
18C6 
18c9 
18CA 
18Co 
18CF 
138bde2 
1804 
13Dd6 
13D8 
18DA 
1so0c 
18DE 
183E0 
18E3 
18E4 
18E6 
18E8 
18EA 
18EC 
18EE 
18F6 
18Fe 
18F4 
18F 7 
18F8 
18FA 


18FC 
LOFF 
1902 
1904 
19986 
1998 
199B 
190C 


190E 
1910 
1912 
1914 
1916 
1918 
194B 


6@ AB 


71 «12 


71 12 
@6 32 


68 31 


71 ie 


71 12 


a 32 


71 12 


MODS 


OUTSR4 


OUTSRS 


OUTSRE 


FINOUT 


* OUTPUT FIELD 


OUTFLD 


INC 8 
CMP B 
BLO 
TST 
BEQ 
LDA A 
JSR 
INC B 
BSR 
JSR 
INC B 
TST 
BNE 
TST 
BNE 
LDA A 
CMP A 
BNE 
BSR 
BRA 
LDA A 
JSR 
Inc B 
CMP B 
BLO 
BSR 
LDA A 
BNE 
BSR 
BSR 
LDA A 
JSR 
INC B 
CMP B 
BLO 


CLR 
CLR 
LDA A 
CMP A 
BEQ 
JSR 
INK 
BRA 


LDA A 
CMP A 
BEQ 
CMP A 
BEQ 
JSR 
INA 


#14 
DUTSR3S 
MODFY 
OUTSR4 
#$20 
PUTCHR 


NEXTC 
PUTCHR 


SPCFLG 
OUTSRS 
FCBFLG 
OUTSRS 
OPCNT 
#1 
OUTSRS 
NEXTC 
OUTSRE 
#320 
PUTCHR 


#15 
OUTSRS 
NEXTC 
SPCFLG 
FINOUT 
OUTFLD 
NEXTC 
#320 
PUTCHR 


#25 
OUTSRE 


SPCFLG 
FCBFLG 
Q. % 
#$D 
NEXTC4 
PUTCHR 


FINOUT 


@. ¥ 
#3$D 
NEXTCe 
#$20 
NEXTC4 
PUTCHR 
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BUMP COUNT 
COLUMN 12? 


A OR B REF? 


SETUP SPACE 
OUTPUT IT 
BUMP COUNT 
GET NEXT CHAR 
OUTPUT IT 
BUMP COUNT 
FLAG SET? 

IF SO. FINISH 
FCB ? 


GET OP COUNT 
Is IT 1 BYTE? 


GET NEXT CHAR 


SET UP SPACE 
OUTPUT IT 

BUMP COL COUNT 
COLUMN 16 YET? 
REPEAT 

GET NEXT 

CHECK SPECIALS 
FINISH? 

GUTPUT NEXT FIELD 
GET TO NEXT 
SET SPACE 
OUTPUT IT 

BUMP COUNT 
COLUMN 26? 
REPEAT 


CLEAR FLAG 
CLEAR FCB 
GET NEXT CHARACTER 
Is IT CR? 


OUTPUT IT 
BUMP TO NEXT 


GET CHARACTER 
Is IT Cr? 


Is IT SPACE? 


OUTPUT CHARACTER 
BUMP TO NEXT 


FLEX ASSEMBLER MODS 


191C 
1910 


191F 
1928 
1922 
1924 
1926 
1928 
192A 
192B 
192C 


192D 
1930 
1932 
1934 
1936 
1939 
1938 
193E 
1946 
1943 


1944 
1945 
1947 
1948 
194A 
1946 
194D 
194E 
1956 
1951 
1953 
1954 
1956 
1957 
1959 


195A 
1972 
1973 
1984 
1985 
1991 


sc 
28 


EF 


28 


2A 


ec 


2D 


33 


38 


DS 


INC 6B 


BRA OUTFLD 


* GET NEXT CHAR SKIPPING 


NEXTC INK 
LDA A @X 
CMP A ##26 
BEQ NEXTC 
CMP A #$D 
BNE NEXTC4 

NEXTC2 PUL B 
PUL B 

NEXTC4 RTS 


* FINISH OBJECT DUMP 


FINOBJ JSR MEMPU2 
LDA A XFRFLG 
BEQ NEXTC4 
LDR A ##16 
JSR WRITE 
LDR R XFRADR 
JSR WRITE 
LDA A KFRADR+1 
JSR WRITE 
RTS 

* OPTION TABLE 

TABLE FCC “BY 
FOB OBJFLG 
FCC “Lb 
FDB NLFLG 
FCC “3S” 
FOB NSFLG 
FCC “GG? 
FDB NGFLG 
FCC OS 
FDB TPFLG 
FCC “NC 
FOB LINFLG 
FCC i see 
FDB YFLG 
FCB ts) 

* STRINGS 

Tost FCC 
FCB 4 

ILST FCC 
FCB 4 

NFST FCC 
FCB 4 
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BUMP COUNT 


SPACES 


BUMP POINTER 
GET CHARACTER 
IS IT SPACE? 


Is IT CR? 
RESTORE STACK 


RETURN 


CUMP BUFFER 
TEST FLAG 

XFR ADDRESS? 
SET RECORD 
WRITE TO DISK 
GET ADDRESS 
OUTPUT IT 


FINISH UP 
RETURN 


“ILLEGAL OPTION SPECIFIED’ 
“ILLEGAL FILE NAME’ 


“NO SUCH FILE” 
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FLEX ASSEMBLER MODS 


139392 44 BLST 
19AB 04 

19AC MEMBUF 
1A74 RFCB 
1B34 WFCB 
1BF4 BUFBEG 


NO ERRORCS> DETECTED 


FCC 
FCB 


RMB 


RMB 
RMB 


EQU 


END 


TSC MNEMONIC ASSEMBLER 


“DELETE OLD BINARY CY-No? ¢ 
4 


200 


192: 
1392 


* 
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SYMBOL TABLE: 


ADDPC1 8Csé ASN 7esc BUFBEG 16F4 BUFEND 8836 BUFPNT 
BYTPTR 8087 BYTSTK 6206 DASM35 164A DASM3? 1656 DASM45 
DASM47 16A7 DASM48 16AA DASM6e 16BF DASM65 16CA DASM67 
DASM?72 16F4 DASM?73 1741 DASM74 1723 DASM?S 172D DASM??7 
DASM86 1739 DASM9S 1784 DASMB 1662 DASMBe 162F DASMBS 
DASMB4 1665 DASMBS 1688 DASMB6 16B7 DASMB? 1606 DASMBS 
DASMBS 177B DATFLG 885A DEOL 7e8e DLST 1992 DOEND 
DOEND1 182D DOFCB 1806 DOFCC 1865 DOMOD 182E DosyYM 
DOTAP 1833E DOTAP2 1845 DOTTL 1812 DOTTL2 1815 END 
ERRFLG 6856 ERRLIN 1878 EVAL 14D5 EXTDAT 1562 FCB 
FCBFLG 8031 FEER 8803 FILB2e2 17B6 FILBes 17C4 FILBesS 
FILB45 17DC FILBSS 17E9 FILBUe 17B4 FILBUS 17C9 FILBU4 
FILBUS 17ES FILBUG 17EB FILBU? 17EE FILBUS 17FS FILBUF 
FINOBJ 192D FINOUT 18FC FIXDAT 1834 FIXSTe 1858 FIXSTR 
FLG 002F FMS 7806 FMSCLS 7883 GENER 6686 GETCHR 
GETFIL 7127 GETHEX 713F ILST 1973 INBUF 7115 INDEC 
INDEXS 90@3D TOsT 135A LBLBEG 6840 LBLEND 9642 LINBYT 
LINCNT 68034 LINFLG 8833 LINPTR @@8D LIST BORE LSTPCM 
LSTTRM 70691 MCOUNT 689A MEML 1598 MEM2 1595 MEMS 
MEM4 1561 MEMS 1587 MEMBUF 19AC MEMCOD 1577 MEMORY 
MEMPTR 8986 MEMPUe 1505 MEMPU4 15&2 MEMPUS 1661 MEMPUT 
MODFY 88AB NEXTC 191F NEXTCe 192A NEXTC4 192C NFER 
NFST 1985 NGFLG 66eCc NLFLG 962A NSFLG 682B NXTCH 
OBJFLG 8928 OPL O87F OP2 e6so OPCNT 6698 OPCODE 
OPNPTR 9696 OPTPTR 6694 ouUTeS eCC7 OUTCHN 7BR3 OUTDEC 
OUTFLD 19@0E GUTHEX 7139 OUTSR1 189F OUTSRe 18A5 OUTSR3 
QUTSR4 18CA GUTSRS 18DE OUTSR6E 15F2 OUTSRC 1896 PLINIT 

P2AUX 1871 P2INIT G36F PASONE 98361 PASTWO G3D9 PBYTE 
PBYTE4 186E PC 846 PCFLG 98593 PCRLF 711E PLINE 
PLINE1 188A PLINE2 1893 PRNFLG 8029 PRTOAT @SFF PRTSRC 
PSTRNG 7116 PUTCHR 7112 QTEMP 9808786 RETRNR 7896 RFCB 
RPTERR 713C SETEXT 712D SPC 8926 SPCFLG 8632 SRCBEG 
SRCEND @046 START 8306 SYMBOL OG@ARF TABLE 1944 TAPE 
TMPOUT 9839 TPFLG 8@2D TSTTR1 179A TSTTRe 17°90 TSTTR3 
TSTTR4 17AE TSTTRM 178A TYPESF GBEFL WARMS 7163 WFCB 
WRITE 17F8 WRITE2 1802 XFRADR 8837 XFRFLG 6836 XTEMP2 
XTEMP4 6071 XTEMPS 8673 VYFLG 8839 
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7094 
167F 
16CF 
1738 
163B 
1736 
1819 
1848 
Q02E 
7748 
17C?7 
17D2 
17AF 
1851 
710F 
1348 
64s 
6a9C 
15AB 
6OB3 
15CA 
9e04 
7121 
BO7E 
7133 
18AF 
B326 
185D 
1882 
e642 
LA4 
6844 
8aBe 
L17AC 
1B34 
66D 


dicta ae he aa 








